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هذا الكتاب حر ومخصص للتوزيع المجاني في 
نسخته الإلكترونية ويمكنك أن opi‏ بشكل كامل 
أو جزء منه بشرط ذكر المصدر. 


جميع الحقوق محفوظة لدى مؤسسة القرية 

الهندسية ولا يجوز استخدام هذا الكتاب بأي 
صورة تجارية دون موافقة خطية من الناشر. ومن 

يخالف ذلك يعرض نفسه للمساءلة القانونية 





الطبعة الأولى X۲١٠0٠‏ 


www.ev-center.com 
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الإشراف العام 
فهد السياباي 


اعداد 
o 1 +‏ .. المنذراى 





التدفيق و المراجعة 
Jilg‏ المغيري 


التصميم والإخراج الفنصي 
شهرة المنذري 
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أعزاءنا مبرمجي المستقبل في كل «Jo‏ 


يسرنا أن نهديكم هذا الكتاب ليكون شعلة لدربكم وخطوتكم الأولى 
في عالم برمجة الفيجوال بيسك. 


تم إطلاق هذا الكتاب بشكل حر ومجاني تحت رخصة المشعاع 
الإبداعي ضمن مبادرة #القرية_الهندسية لإثراء المحتوص العربي 
بالكتب التطبيقية المبسطة في مجال البرمجة. نسأل الله أن يجعل 
هذا العمل فاتحة الطريق لتطوير مهارات الكثير من المبرمجين العرب 
المبدعين. 





ولنعمل بجد للتحول من مجتمع مستهلك للتكنولوجيا إلى مجتمع 


تحياتنا الحارة 
فريق العمل 
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pie‏ لغة الفيجوال بيسك من إحدى وأقوص اللغات في عالم البرمجيات 
التي تعمل تحت بيئة مايكروسوفت ويندوز والتي تساهم في chiul‏ 
وتطوير التطبيقات والبرامج الصغيرة والمتوسطة والكبيرة التي تخدم 
سوق العمل من اجل تسريع العديد من العمليات التجارية. والفيجوال 
بيسك لغة يسهل التعامل معها بعكس لغات البرمجة الأخرى لذلك 
يمكن أن يتعامل معاها أي شخص من الفئات المختلفة بسهولة 


للأسباب التالية : 


8 1 بز‎ a J E, 
Lo لأنها تعرفهم ببيئة التطوير المتكاملة الخاصة بهاء وتفسر لهم كل‎ 
يحتاجونه للبرمجة الفعلية من أوامر برمجية ودوال وتوابع مع شرح‎ 
النماذج والأدوات المستخدمة فيها. وبالتالي اكتساب الخبرة في إنشاء‎ 
البرامج والتطبيقات الصغيرة والمتوسطة مثل برمجة الآلة الحاسبة.‎ 


0 للمة لر“ 
لأنها تحقق لهم قفزة نوعية إلى مواضيع متقدمة فص البرمجة 
بالاتصال مع نظام قواعد البيانات «DataBases‏ وإنشاء تطبيقات 


متقدمة مثل برامج المحاسبة وبرامج إدارة الموارد البشرية وغيرها. 


Aol m,‏ مين 


الذين يصلون إلى مرحلة الإحترافية في الفيجوال بيسك وبرمجة 
التطبيقات والبرامج المعقدة بالإضافة إلى إنشاء مواقع ويب. 
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© di? 


الدرس الأول 


أنواع لغات البرمجة (Programming Languages)‏ 





مراحل تطور لغة الفيجوال بيسك (Visual Basic Language)‏ 


مصطلحات برمجية أساسية (Terms)‏ 


(Types of Variables) أنواع المتغيرات‎ 


Qq A U N> 


( Variable and Constants) تعريف المتغيرات والثوابت‎ 


الدرس الثاني 
1 كيفية تثبيت برنامج الفيجوال بيسك 
2 واجهة تشغيل برنامج الفيجوال بيسك 


6606 ©0008 


3 القوائم الرئيسية في بينة تطوير الفيجوال بيسك 
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الدرس الأول 
1 أدوات التحكم (Tool Box)‏ 
2 خصائص أدوات التحكم (Properties of Tool Box)‏ 
3 واجهة المستخدم الرسومية (Form)‏ 

الدرس الثاني 


1 تطبيقات على كيفية كتابة الأوامر البرمجية (Codes)‏ 
لأدوات التحكم وخصائصها 


الدرس الأول 


€? (Conditional Function) الدالة الشرطية‎ 1 


© 60 








(Select Case) الدالة‎ 2 


الدرس الثاني 
1 الدالة التكرارية (Repetition or Looping)‏ © 


www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 


الدرس الأول 
1 الدالة (Val Function)‏ 


(Mod Function) الدالة‎ 2 


الدرس الثاني 
1 المصفوفات (Array)‏ 


© 





الدرس الأول 

1 تطبيقات على أدوات التحكم والدوال في الفيجوال بيسك ® 
الدرس الثاني 

1 تطبيقات على أدوات تحكم مختلفة في الفيجوال بيسك 97 
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bao‏ بك في عالم الفيجوال بيلك . سيأخذك هذا الكتاب في 
رحلة للتعرف على أساسيات البرمجة بلغة الفيجوال بيسك. خطوة بخطوة 
من لحظة تثبيت البرنامج وتنصيبه على جهازك لأول مرة وصولا إلى تنفيذ 
مجموعة من التطبيقات المفيدة بيديك go‏ مجموعة من التحديات المذهلة 
في نهاية الكتاب لصقل مهارتك والتأكد من إكتسابك للمهارات الأساسية. 
في هذا الكتاب ستتعلم بالممارسة. فهو ليس للقراءة والمطالعة . 


أحضر جهاز الحاسوب الخاص بك استعدادا للرحلة. 





في البداية سنسترجع معا : ما هي البرمجة ؟ و ما هي الفيجوال بيسك ؟ 
و ما هي مراحل تطورها ؟ 


إنطلق ! 
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2 am 
nae 
A 
A 
Tu 
D Wut 
u zz 





www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 





3 كيفية تثبيت برنامج الفيجوال بيسك 


2 واجهة تشغيل برنامج الفيجوال 
1 القوائم الرئيسية في بيئة تطوير 
الفيجوال بيسك 


الدرس الثاني 





5 تعريف المتغيرات والثوابت 
Variable and Constants)‏ ( 
أنواع المتغيرات 
(Types of Variables)‏ 
مصطلحات برمجية اساسية 


2 مراحل تطور لغة الفيجوال بيسك 
(Visual Basic Language)‏ 


1 أنواع لغات البرمجة 
(Programming Language)‏ 


الدرس الأول 
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أنواع لغات البرمجة 
Programming Languages‏ 


: (Machine Language) الآلة‎ äs 1 


هي اللغة التي يفهمها الحاسب الآلي مباشرة و تتمثل: برموز قد تكون 
أصفار أو وحدات Binary language (01) Jio‏ التي تشكل أوامر برمجية 
يفهمها الحاسوب وتعتبر من أصعب لغات البرمجة وتستغرق الكثير من الوقت 


2. لغة المجمع (Assembly or Language)‏ : 
هي عبارة عن مترجمات للبرامج حيث يكتب البرنامج بلغة برمجة قريبة من 
الانجليزية وتقوم هذه المجمعات بترجمتها إلى لغة الآلة. وتعتبر هذه اللغة 

أبسط و أوضح بكثير من لغة الآلة. لكنها بقيت صعبة قليلا Jio‏ لغة الرموز 
assembly Language‏ . 


3. لغات عالية المستوص (High Level Language)‏ : 
هي لغة سهلة laa‏ مقارنة باللغات الأخرى ولغة قريبة من لغة البشر لذلك 
سميت لغة عالية المستوى وهي من gäl‏ لغات البرمجة ولا alia;‏ إلى 
كتابة كودات أو أوامر برمجية كثيرة مثل بقية اللغات وعندما يتم برمجتها 
يجب تحويلها إلى لغة الآلة لكي يفهمها الحاسوب بواسطة مترجم أو محول 
يسمص dun converter‏ يحول لغات البرمجة عالية المستوص إلى لغة الآلة 
lk,‏ ومن أمثلة اللغات العالية المستوص لغة © C++g‏ ولغة الفيجوال بيسك 

. Visual Basic 
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مراحل تطور لغة الفيجوال 
بيسك (Visual Basic)‏ 


أصل لغة فيجوال بيسك هي لغة بيسك التي ظهرت في 
كلية دارتماوث (Dartmouth)‏ 


3 م 


توماس كيرتز جون gias‏ 


John Kemeny Thomas Kurtz 


أصبحت لغة الفيجوال بيسك بسرعة فائقة من 
أشهر و أسهل لغات البرمجة بل لم تقف عند هذا 
و الكليات والجامعات و بدأ انتشارها 


أخذت هذه اللغة في التطور الدائم مع المحافظة 
على سهولة استخدامها و بساطتها و كان الإصدار 
الأول لهذه اللغة 

ظهور الإصدار الثاني من لغة الفيجوال بيسك 


ظهور الإصدار الثالث من لغة الفيجوال بيسك 
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من ذلك الوقت تعاقبت إصدارات كثيرة منها. 


وبعد العديد من التطويرات التي تمت علص لغة 
تم إصدار الفيجوال بيسك yü‏ والذي يشمل على 
الفيجوال بيسك دوت نت Visual Basic.Net‏ والسي 
شارب # © والسي بلس بلس++© و ASP.Net‏ والعديد 
من لغات التطوير 


2010 م P‏ الفيجوال البيسك المرئي أكثر فأكثر في هذا 


p 2008 


وصول الفيجوال البيسك المرئي إلى بيئة التطوير 
4 م مايكروسوفت فيجوال إستيديو إكسبريس Microsoft‏ 


. Visual Studio Express 


(Visual Basic) الفيجوال بيسك‎ 


هي أداة تطويرية ولغة من لغات البرمجة عالية المستوص وتعتبر واجهة المستخدم 

الرسومية التي تستخدم لإنتاج التطبيقات والبرامج المرئية وتطبيقات ويب. وتحتواي 
Î‏ علص العديد من الإعدادات والأوامر البرمجية الجاهزة التي ide Jaw‏ كتابة الشفرة 

البرمجية أو الأمر البرمجي وتصميم البرامج التي تعمل تحت نظام الويندوز وكذلك 

البرامج التي تعمل علص مواقع ويب. وتساعد هذه اللغة علص زيادة الإنتاجية عند 
j‏ تصميم البرامج خاصة البرامج المتعلقة بقواعد البيانات وبرامج الانترنت. والملاحظ 

أنه عندما تعتاد على استخدام بيئة التطوير الخاصة بالفيجوال بيسك فانك ستصبح 
f‏ قادرا علص استخدام نفس الأدوات مع السي شارب وكذلك السي بلس بلس 
وغيرها من آدوات التطوير المتضمنة فص Microsoft Visual Studio‏ . 
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: (Code) Ca Ts TIT gÎ agl 


ga‏ عبارة عن أوامر برمجية تعطى للكمبيوتر على شكل نص تكتب بواسطة 
لغة من لغات البرمجة كلغة الفيجوال duw‏ والتي يفسرها uw agio‏ 
(Compiler)‏ ليفهمها الكمبيوتر ولكل فورم أو وحدة نمطية أو أداة تحكم كود 
خاص به في الفيجوال بيسك. وقد يكون الكود مقسما إلى كائنات Objects‏ 
ودالات أو توابع «Functions‏ وإجراءات Procedures‏ و أحداث .Events‏ 


: (Object) jl 2 


قد يكون تعريف لكود أداة تحكم Jio‏ الزر Button‏ ويكون له عدة إجراءات. 


: (Procedure) elal 3 


هو عملية أو عمليات ينفذها البرنامج عند تحقق حدث معين كالنقر على أداة 
الزر Button‏ في البرنامج. 


4 

هو عبارة عن فعل يقوم به المستخدم للبرنامج المصمم كالنقر علص أداة 

الزر Button‏ أو تغيير نص في مربع نص Text Box‏ أو حتص تحريك الماوس أو 
الفأرة ويرافقه تنفيذ الإجراء المتعلق به. 
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: 


هي عبارة عن مواقع في الذاكرة تخزن فيها بيانات بشكل مؤقت ولكن لا 
يمكن تغيير قيمتها أثناء تنفيذ البرنامج. فمثلا يمكن للبرنامج أن يخزن في 
الثابت Con‏ القيمة 1 لكنه لا يستطيع تغييرها gola glg‏ تغييرها فإن المترجم 
يرسل رسالة خاطئة أثناء تنفيذ البرنامج. 


6 


المتغيرات هي عبارة عن مواقع في الذاكرة تخزن البيانات بشكل مؤقت 
ويكمن تغيير قيمتها أثناء تنفيذ البرنامج. فمثلا يمكن للبرنامج أن يخزن في 
المتغير Var1‏ القيمة 1 ثم يخزن القيمة 2 والقيمة التي سترجع من المتغير 
هي آخر قيمة تم تخزينها. 


تابع فأنت المبرمج الناجح 
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أن يبدأ بحرف هجائي (انجليزي) مثل:. ) (...,A,B, ... or a ,b‏ 
أن لا يحتوى على علامات خاصة مثل: ( ؟!ء:.....) 

أن لا يكون هذا الاسم من الكلمات المحفوظة في مكتبة 
الفيجوال بيسك End , Byte, If, Dim Jio‏ وغيرها . 
يمكن للاسم أن يتضمن أرقام و حروف. 
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قاعدة الثابت: 
كلمة التعريف هي: (Const)‏ 
Const CN as DataType = Data (Value)‏ 
(قيمة الثابت) = (اسم الثابت) as‏ (اسم الثابت) + Const‏ 
الاسم الثابت أو القيمة الثابتة : CIV‏ 
نوع البيانات : 02٤2 Type‏ 
مثال: 
Const C1 as integer = 1‏ 


تعريف المتغيرات عند كتابة الكود: 
المتغير يكون اسم غير معرف به في قاموس 
الفيجوال بيسك. 
كلمة التعريف هي: (Dim)‏ 
(قيمة المتغير) = (اسم المتغير) as‏ (اسم المتغير) + Const‏ 
القاعدة: 
Dim Varl as DataType = Data‏ 
اسم المتغير : Vard‏ 
مثال: 
Dim Student as string = "Sheikha”‏ 
إذا كان المتغير من نوع "string"‏ يكون بين علامتي اقتباس 


كيف يمكن تخزين البيانات في المتغير؟ 
القاعدة: 


Vard = Data‏ "المتغير 1 يساوي البيانات المخزنة" 
مثال: 
S1 = textbox1.Text‏ " المتغير 51 يخزن البيانات في أداة التحكم 
التي تدعص مربع نص ."TextBox‏ 
أمثلة أخرص علص تعريف أنواع المتغيرات: 
Dim age As Integer = 25‏ 
Dim abc As Boolean = True‏ 
Dim Pi As Double - 4‏ 
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(الديس الات كيفية تثبيت برنامج الفيجوال 


بيسك على الحاسب الآلي 


يتوافق برنامج الفيجوال بيسك ويعمل تحت نظام التشغيل Windows‏ 


مثل: .Windows 8. Windows 7. Windows XP. Windows Vista‏ 
وبالتالي لتثبيت برنامج الفيجوال بيسك على jaa‏ الكمبيوتر لا بد من احتواءه 
على نظام التشغيل (Windows)‏ 


الخطوات المتبعة لتنصيب (تثبيت) البرنامج: 


1 من خلال البحث في الانترنت يتم الدخول إلى الموقع الرسمي 
لتحميل برنامج الفيجوال بيسك 2010 من خلال الرابط التالي: 
http://www.microsoft.com/visualstudio/eno/‏ 
downloads#d-2010-express‏ 


تظهر مجموعة من خيارات التنزيل المتعلقة بالبرنامج في الموقع, 
ويتم اختيار برنامج الفيجوال بيسك 2010 Visual Basic Express‏ « 
ثم يتم اختيار إحدص oky‏ التنزيل مثل: „English‏ 


2012 edition 2012 Opre 


Add bonal software Readme 


Visual Studio 2010 Express 





www .learn-barmaga. com | البرمجة‎ alû | www. facebook .com/barmej . dz 


\Visual Basic 2010 Express 


Build custom applications in Visual Basic, a fast and easy way to 
create .NET Framework-based Windows applications. Programs 
written in Visual Basic benefit from security and language 
interoperability. After installation, you can try this product for up to 
30 days. You must register to obtain a free product key for ongoing 
use after 30 days. 


Download language 


English ~v 


Download language 


English = 


Installation options 


i عسنححظله‎ 2010 Express - English 
lm] C 


ثم الضغط علص Install now‏ لتنزيل الملف vb_ web.)‏ 
(exe‏ الذي يحتوي على ملف تثبيت البرنامج (Setup)‏ وتحديد 
موقع تخزين الملف في جهاز الكمبيوتر وليكن على سطح 
المكتب من خلال اختيار زر Save File” or “Save” to save”)‏ 
(the File‏ . 


You have chosen to open 
= Î vb web.exe 


which is a: Binary File 
from: http://download.microsoft.com 


Would you like to save this file? 


ES 














www. learn-barmaga. com | البرمجة‎ alû | www. facebook .com/barmej . dz 








Do you warıt to run or save this file? 


Name: vb_web.exe 
Type: Application, 3.11MB 
From: download.microsoft.com 








While files from the Intemet can be useful, this file type can 
potentially harm your computer. If you do not trust the source, do not 
run or save this software. What's the risk? 


ثم الضغط على زر Run‏ لمتابعة وإكمال خطوات تثبيت البرنامج . 


ثم يتم فتح الملف لتثبيت برنامج الفيجوال بيسك من خلال الضغط على 
ملف ar (Setup)‏ قائمة التثبيت واختيار الزر Next‏ . 


ثم يتم الموافقة علص (License Terms)‏ المتعلقة ببرنامج الفيجوال 
بيسك من خلال النقر علص الخيار: have read and accept the‏ | 
oj. license terms‏ النقر علص زر .Next‏ 


بعد ذلك يتم اختيار الملف الذي يحتوي على بعض خصائص ومواصفات 
برنامج الفيجوال بيسك أو اختيار الملف الذي يحتوي على كل الخصائص 
والمواصفات والمرفقات الأخرص للبرنامج من خلال الضغط علص الخيار: 
Microsoft Silver Light‏ . 


ثم الضغط على Next‏ واختيار موقع حفظ ملف تثبيت البرنامج على 
جهاز الكمبيوتر Jio‏ الملف © ثم النقر علص زر Install‏ 


الانتظار إلى اكتمال تثبيت جميع الملفات والخيارات المرفقة مع البرنامج 
ثم النقر علص الزر Exit‏ بعد اكتمال التثبيت (Setup Complete)‏ 
وبالتالي يصبح برنامج الفيجوال بيسك مثبتا على جهاز الكمبيوتر ويتم 
فتحه مباشرة من القائمة .(Start)‏ 
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لفتح مشروع جديد: 

يتم اختيار الخانة File‏ من شريط المهام الموجود في أعلص البرنامج والنقر 
على أول خيار New Project‏ وقد يكون هذا الخيار موجود مباشرة عند فتح 
البرنامج في الجانب الأيسر . 





لاختيار aigos‏ التصميم: 
يتم اختيار النموذج Windows application >> Windows form application‏ 
المختص بتصميم البرامج النصية أو الرسومية. 
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Windows Form Application عند اختيار تطبيق‎ 


تفتح صفحة تصميم البرنامج وتتضمن واجهة المستخدم الرسومية (Form)‏ أو 
الشاشة الرئيسية مع باقي مكونات بيئة تطوير الفيجوال بيسك . 


fem Project Build Debug Team Data Format Tosi Architecture Test Analyze Window Help 
2 a &| إل‎ < 2 ]5 - » - 2-21» u a ARA REO. 


File. Edî 
EEE 
FEFELE 


Û Solution Formi’ (1 project) 
4 Gi fom 


roperties x 
Form1 System.Windows.Forms.Fo + 


E [ FIS 
RıghtToLeft No 
RightToleftl: False 


عند الانتهاء من تصميم أي برنامج أو تطبيق 


e Save ثم الضغط على‎ File >> Save All 
pen 
Add 


File Edit View Project Build Debug Team 


Close 
g Close Solution 
lz] Save Form1.vb 





Export Template... 
Source Control 








[Formi] 


Cı\Users\Sohar\documents\visual studio 2010\Projects m 


Form1 [Z] Create directory for solution 
[E] Add to source cont trol 
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القوائم الرئيسية في بيئة 
تطوير برنامج الفيجوال 








شريط المهام : 


يستخدم هذا الشريط للقيام بجميع خصائص البرنامج الموضحة به ويكون في 


File Edit View Project Build Debug Team Data Format Tools Architecture Test Analyze Window Help 
: ه: لنة‎ gu- لا‎ 2 | š& 3 هنا‎ | &| =z 2 | 5 - هه‎ - J~ 3 | > ıı a %ı Çı èz | 


! :Solution Explorer 
Solution Explorer 


توضح هذه القائمة العناصر و الكائنات agoda‏ 
المستخدمة في المشروع الخاص بك مثل (2Z) Solution 'Form1' (1 project)‏ 
عدد الفورم التي صممت في المشروع E Form1‏ 4 
وتوجد هذه القائمة في الجانب الايمن من EA My Project‏ 
صفحة البرنامج . TF] Forml.vb‏ 


Cl Solution Ex... REN 


Þ All Windows Forms 


za¬ E : (ToolBox) شریط أدوات التحکم‎ 


4 Common Controls 

Pointer Bi. as 5 5 î ^: ^ 

هو الذي يتضمن ga‏ أدوات التحكم المختلفة اق 
CheckBox‏ 


التي يتم استخدامها وإدراجها في واجهة المستخدم |- Š Checkedlistêox‏ 


وتنفيذ الأوامر البرمجية عليها. ere‏ 


ListBox 














û > > si EI Ëã لكا‎ 6 > 


33 ListView 
=] MaskedTextBox 
HE] MonthCalendar 
Notifylcon 
E NumericUpDown 
jj] PictureBox 
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هي قائمة عرض خصائص ومميزات أدوات التحكم والتي 
تساعد على ضبط خصائص أي أداة تحكم أثناء تصميم 
البرنامج دون الحاجة إلى كتابة كود أو أمر برمجي. ولعرض 
قائمة الخصائص يتم النقر علص قائمة view‏ ثم على 
Properties Window‏ وقد تكون في الجانب الأيمن في 
الأسفل من البرنامج. 





هي النافذة أو الواجهة الرئيسية في 
البرنامج التي يتم تصميم وتنفيذ البرنامج 
أو التطبيق من خلالها . 





: Paol الموجود في شريط‎ (Debug)jj 


خد لسانت كيفية یر ممل esll‏ الل O‏ 
تصميمه وكتابة الأوامر البرمجية فيه ومراجعة ما 
إذا كانت فيه أخطاء برمجية أم لا ويمكننا الضغط Start Debugging (F5)‏ 


على F5‏ كوصلة سريعة ل Debug‏ . 
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ملاحظة: 

عند إختفاء أحدص قوائم البرنامج يتم إظهارها من خلال: 

النقر على قائمة (view)‏ ثم اختبار القوائم منها وكذلك يمكن إدراج قوائم 
أخرى عن طريق نفس القائمة (view)‏ ثم النقر علص (other windows)‏ 








File Edit View Project Build Debug Team Data Tools Architec 
: -لنا تا هالذا‎ HAAN هن دك‎ | & = 2 | 2 - c - -ت2‎ 





[¥] CheckBox 
EJ CheckedListBox 
E ComboBox 
TT DateTimePicker 
A Label 

A Linklabel 
ListBox 
ListView 
MaskedTextBox 
MonthCalendar 
Notifylcon 
NumericUpDown 
PictureBox 











mz 
3 
9 
o 
F 
g 
8g 
لزنا‎ 
y 
3 
2 
5 
y 
+ù 
8 
8 


Ha) 


ProgressBar 
RadioButton 
RichTextBox 
TextBox 
ToolTip 


ها كنا 5 لظ Û‏ © ”ا 


5 


TreeView 


WebBrowser 


Dari 


Windows Media Player 


6 
o 


ntainers 
Pointer 


FlowLayoutPanel 


Gz 


GroupBox 











Panel 





#4 Error List 
Ready 
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saoınos +20 


Þ All Windows Forms 
4 Common Controls 


Pointer 

Button 
CheckBox 
CheckedListBox 














Label | aa 
LinkLabı كنا‎ 
ListBox | x 
ListView 
Masked 
MonthC 


a 


E 


PictureB 
Progress 
RadioBu 
RichTed 
TextBox| 
ToolTip ; 


TreeView 


© 8 i 8 ll 


E] A 


r 


Data Tools Architecture Test Analyze 


CheckBox 
CheckedListBex 


5 


a ca. | 


29 DateTimePicker 
A Label 
A Linklabel 
ListBox 
ListView 
MaskedTetBoc 
MonthCalender 
Notifyleon 
NumericUpDown 
PictureBox 
ProgressBar 
RadioButton 
RichTenBoc 
Tetfox 
ToolTip 
TreeView 
E  Webêrowser 
(O) Windows Media Player 
4 Containers 
J Pointer 
FlowkayoutPanel 


EF ه‎ BERHE 


GroupBox 


E Error list 
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Rename Item 
List View 
Show All 


Sort Items Alphabetically 
Reset Toolbox 


Add Tab 


Move Up 
Move Down 


Ctrl+X 
Ctrl+C 
Ctrl+V 
Del 





Choose Toolbox Items ` 





E لاس‎ 


System.Workflow Components 





\ctivities Components 





„NET Framework Components 





Name 
E] VCMacroPicker Class 

E VDMDispiay Class 

E] VideoRenderCtl Class 

[E VSTO FormRegionsHestX 

EI VSTO WinFormsHost Control 
E Windows Mail Mime Editor 
Windows Media Player 

E WizCombo Class 

E] WizCombo Class 

IE] WMIObjectBroker Class 


EOM Components, 





WPF Components 





Path 


CAProgram Files (86)\Micıosoft Visual 5... 
CAProgram Files (ı86)\Common Files\La... 


CAWindows\SysWOW6A\qdva.dll 
CAProgram Files (86)\Common Files\M... 
CAProgram Files (86)\Common Files\M... 
CıWindows\syetem32\ inetcomm. dll 
CAWindows\system32\wmp.dll 


C\Program Files (ı86)\ Microsoft Visual 5... 


Cı\Program Files (86)\Microsoft Visual S.. 
Ci Program Files (ı86)\Commen Files\M... 


Library 


VDMMPLAB 10 T.. 


VSTOEE9.0 Type... 


Windows Media ?... 
VCWiz12.0 TypeL... 
VCWiz10.0 TypeL.. 











Language Language Neutral 


Version: 10 








Adobe Acrobat DC Browser Control Implementation 


























Solution Explore 
ذه كا لعا العا ه اذا‎ 


(GÎ WindowsApplication1 
E My Project 


Sl Solution Explorer EET 
Properties 


Form1.vb Fle Properties 


ME 

BuldAcîon Compie 
0 
i Te 

Custom Tool Ne 


FileName Form ab: 











إذا لم تحاول أن تفعل شينئا 


£ 


أبعد مما قد أتقنته .. فأنك U‏ 


تتقدم أبدا. 
من أقوال القيلسوف 
(رونالد اسبورت) 
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1 تطبيقات على كيفية كتابة الأوامر البرمجية 
(Codes)‏ لأدوات التحكم وخصائصها 


الدرس الثاني 





3 واجهة المستخدم الرسومية 
(Form)‏ 


2 خصائص أدوات التحكم 
(Properties of ToolBox)‏ 


1 أدوات التحكم المستخدمة في 
برنامج الفيجوال بيسك (ToolBox)‏ 


الدرس الأول 
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أدوات التحكم في 
برنامج الفيجوال بيسك 
(Tool Box)‏ 





تتكون قائمة الأدوات (Tool Box)‏ في 
برنامج الفيجوال بيسك من 47 أداة 
تحكم ومنها: 








TextBox 5 NAE 

1 اشاش Ê Maden Foral asai aai‏ 
عبارة عن إطار أو نافذة أو صفحة تشكل واجهة أي CheckBox‏ 
RadioButton 7‏ 


برنامج وتحتوي بداخلها على cılo3Î‏ التحكم E AADI‏ 
jJl Jio‏ مربع النص. صندوق الاختيار وغيرها. PictureBox‏ ليها 


Panel 





ölal 2‏ الزر TERÊ | | :(Button)‏ 
هي من أهم أدوات التحكم الأساسية في أي برنامج J CheckedListBox‏ 
وعند النقر ade‏ يقوم بتنفيذ إجراء أو عملية أو حدث Sambo‏ 
ListView i‏ 289 
معين. BE TreeView‏ 
j TabControl‏ 


Ê اماه‎ ta :(Text Box) مربع النص‎ 3 
ال ا‎ î R 5 5 Ê se¬ Ê 
al sl HScrollBar إخراج النصوص‎ gl مخصصة لكتابة وإدخال‎ ölal هو‎ 


في البرنامج ويستخدمه المستخدم لكتابة الحروف vScrollBar‏ 
أو الكلمات والجمل أو الأرقام. ويمكن إعطاءه Timer yol‏ 
Splitter A nj „î 5‏ 
برمجاي لإظهار اي نص TF DomainUpDown -POJ ol‏ 
EF NumericUpDown‏ 
© أداة التسمية P=, TrackBar :(Label)‏ 
تستخدم لإظهار وكتابة النصوص على النموذج أو Eg‏ & 
لإظهار نتيجة. 
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7 خانة الاختيار :(RadioButton)‏ هو mic‏ تحكم يسمح للمستخدم 
باختيار خيار واحد فقط من مجموعة معرفة مسبقا من الخيارات وقد تكون 
له قيمتان True‏ أو .False‏ 


8 صندوق أو خانة الاختيار :(Check Box)‏ 

هو عنصر تحكم يسمح للمستخدم باختيار أكثر من خيار في نفس الوقت 
من مجموعة معرفة مسبقا من الخيارات والتي قد تكون لها قيمتان True‏ 
أو False‏ . 


9 قائمتي السرد أو التحرير :(Combo Box & List Box)‏ 
وتستخدمان cuy‏ قوائم تحتوي علص wä‏ أو معلومات ثم يتم الاختيار 
منهما. 


10 صندوق الصورة :(Picture Box)‏ 
يستخدم لإظهار صورة والتحكم في حجمها أو إظهار حجمها الأصلي. 


11 الصورة :(Image)‏ 
تستخدم لإظهار صورة ولها خاصيتين: تحدد ما إذا كان يجب تكبير أو تصغير 
الصورة / أو تستخدم لتحديد الصورة. 


12 الإطار أو صندوق المجموعة :(Group Box)‏ 
هو الذي يحيط أو يتضمن عناصر أخرص من أدوات التحكم وقد يفصل بين 
مجموعة وأخرص من نوعية البيانات الموجودة في الواجهة أو الشاشة. 


13 المؤقت :(Timer)‏ 
هو الذي يقوم بتنفيذ الإجراء أو الحدث المتعلق به كل مدة محددة تحدد 
بثانية وهي أداة تستخدم للوقت والتاريخ أيضا. 
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خصائص أدوات التحكم 
(Properties)‏ 


لكل أداة تحكم في برنامج الفيجوال بيسك 
خصائص معينة مثل تغيير اللون والحجم 
والخط والخلفية وغيرها من الخصائص 
التي يمكن التحكم فيها من خلال قائمة 
الخصائص أو من خلال كتابتها كأوامر برمجية 
g1ê‏ دا ۹اک 1006 oia‏ ےہ 
(Properties)‏ ھaي:‏ 


الاسم (Name)‏ : هي خاصية أساسية لأي أداة 
تحكم ويعتمد عليها في تحديد إجراءات متعلقة 
بها أثناء كتابة الأوامر البرمجية. 


النص (Text)‏ : تحدد أو تضبط تسمية عنصر التحكم 
التي ستظهر في فورم أو شاشة البرنامج. 

الخط (Font)‏ : خاصية تستخدم لتغيير نوع خط أي 
أداة تحكم تستخدم في البرنامج. 

لون الخلفية 0100© (Back‏ : تحدد أو توضح لون 
خلفية أداة التحكم. 

صورة الخلفية (Back ground Image)‏ : تستخدم 
هذه الخاصية لتغيير الخلفية كصورة yÜ‏ أداة تحكم 
في البرنامج. 
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Back ground Image Layout‏ : تستخدم لتغيير حجم الخلفية من خلال 
الخيارات الموجودة ومنها Title. Center, Zoom‏ وغيرها. 


رمز (Icon)‏ : هذه الخاصية تستخدم كرمز yÜ‏ شاشة أو واجهة أو برنامج أو 
أيقونة تشير إلى أمر ما. 


Enabled‏ : خاصية تستخدم فيما إذا كانت أداة التحكم قابلة للاستخدام أو 
لا من قبل المستخدم. على Juw‏ المثال : تلاحظ في إحدص البرامج Lio‏ 
على أداة زر معين لون رمادي مهما ضغطت عليه لا يمكنك استخدامه 
وذلك بسبب وجود هذه الخاصية التي تحدد قيمتان: عندما تكون الأداة 
مفعلة أو قابلة للاستخدام تأخذ القيمة True‏ وعندما تكون الأداة غير 
مفعلة تأخذ القيمة False‏ . 


خاصية Visible‏ : تحدد ما إذا كانت أداة التحكم مرثية أم لا. وهذا يعني 
هل ستظهر الأداة للمستخدم في البرنامج أم لا تظهر وتأخذ هذه الخاصية 
قيمتان lol‏ مرئية True‏ أو غير مرئية False‏ . 
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lo‏ هي واجهة المستخدم 
الرسومية (Form)‏ $ 





هي شاشة التصميم أو الشاشة المرئية التي تعتبر النافذة أو 
الواجهة الرئيسية في برنامج الفيجوال بيسك والتاي يتم تصميم 
وتنفيذ البرامج أو التطبيقات من خلالها وتحتوي بداخلها على 
أدوات التحكم الأخرص في البرنامج Jio‏ الزر æo (Button)‏ 
النص (TextBox)‏ صندوق الاختيار (CheckBox)‏ أداة التسمية 
(Label)‏ وغيرها. 


من الخصائص التي يمكن أن يتم التحكم فيها وتغييرها في 
واجهة المستخدم الرسومية: 


1 الاسم ( (Name‏ : هي خاصية أساسية لأي أداة تحكم لتغيير اسمها 
الأصلي إلى اسم مختصر والذي يعتمد عليه عند مناداة الأداة وتنفيذ أمر 
برمجي عليها في صفحة الكود من أجل تحديد إجراءات متعلقة بها. 


Propert 


Formi System. Windows. Forms. Form 


Ba! | p E 


> [Applications ettim 
> (DataBindings] 
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2 النص (Text)‏ : هذه الخاصية تحدد أو تضبط تسمية أي عنصر مثل الاسم 
الظاهر أعلى شاشة البرنامج .(Form)‏ 


M >| 





F1 System.Windows.Forms.Form ~ 


Gi? ١ jj س‎ EIS 
SizeGripStyle Auto ^ 
StartPosition WindowsDefault 
Tag 
Text Wekome Form 


3 لون الخلفية (Back Color)‏ : تستخدم هذه الخاصية لتغيير لون خلفية 
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Back Ground Image Layout & Back Ground) صورة الخلفية‎ 4 
خلفية الشاشة (كصورة) بالإضافة إلى تغيير وضعية الصورة‎ jys : (Image 
.( Title, Stretch, Zoom, Center) مثل‎ 


5 الرمز (Icon)‏ : تستخدم هذه الخاصية 
لتحديد رمز أو شعار معين لشاشة التصميم 
يحدده المستخدم. 


أداة التسمية (Label)‏ : هي إحدص أدوات التحكم التي تستخدم لإظهار 
تسمية عنصر معين أو كلمة أو لإظهار نتيجة. ويتم إدراجها في شاشة 
التصميم كما هو موضح بالشكل أدناه : 
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x‏ س 
r ak 3 Š‏ 
TH Wak‏ 
T |‏ 201 


Hello Visual Basic 


ويمكن تغيير بعض خصائص هذه الأداة من خلال قائثمة 
الخصائص في البرنامج: 


الخط (Font)‏ : تستخدم هذه 
الخاصية في تغيير حجم وشكل 
الخط أو النص المكتوب داخل 
أداة التسمية „Label‏ 


لون الخط (Fore Color)‏ 
تستخدم لتغيير لون الخط. 
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شكل الاطار (Border Style)‏ : تستخدم هذه الخاصية لتغيير شكل الإطار 
المحيط بأداة التسمية ويمكن أن يكون بعدة أشكال مثل Fixed 3D.)‏ 
.(Fixed Single. None‏ 





الصورة ووضعيتها (Image & Image Align)‏ : تستخدم هذه الخاصية من 
أجل إضافة صورة داخل أداة التسمية بالإضافة إلى تغيير وضعية الصورة 
داخل هذه الأداة أو تغيير اتجاهها. 
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موقع الأداة (Location)‏ : خاصية موقع الأداة التي تحدد بعد الأداة عن 
يسار أو يمين أو أعلى إطار الفورم أو الشاشة التي تحتويها. 


u x 


Properti 


Label2 System. Windows.Forms.La ~ Pery e a ETP" 


mg Ke 2 ! jj س‎ jIj 


Location 43, 101 b Location 12, 22 
oll Welcome Form ` lere sC» سا‎ 
zt kıı 


, 





الزر (Button)‏ : هو من أهم أدوات التحكم الأساسية في أي aoup‏ 
وأكثر أداة يعتمد عليها في الانتقال إلى صفحة الكودات لكتابة الأوامر 
البرمجية فيه وبالتالي عند النقر عليه يقوم بتنفيذ إجراء أو عملية معينة 
أثناء تشغيل البرنامج أو التطبيق. ويمكن تغيير خصائص أداة الزر من خلال 
قائمة الخصائص في البرنامج. ومن الأمثلة على هذه الخصائص: 


أشكال الحدود (Flat Style)‏ : تستخدم هذه الخاصية لتغيير شكل وإطار 
أو حدود أداة الزر وتشمل عدة أنواع في قائمة الخصائص مثل Flat.)‏ 
.(Popup. Standard. System‏ 


ك Welccme Form‏ ده 
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قابلية الاستخدام bled)‏ : هي خاصية تستخدم فيما إذا كانت أداة التحكم 
قابلة Paai‏ أو لا من ل المستخدم . على سبيل المثال: تلاحظ في 

إحدص البرامج مثلا علص أداة زر معين لون yalo‏ مهما نقرت عليه لا en‏ 
استخدامه وذلك بسبب وجود هذه الخاصية التي تحدد قيمتان: عندما تكون 
الأداة مفعلة أو قابلة للاستخدام تأخذ القيمة True‏ وعندما تكون الأداة غير 


j بن‎ Wekorre Form 


الخاصية المرثية (Visible)‏ : تحدد هذه الخاصية ما إذا كانت أداة التحكم 
مرئية أم لا. وهذا يعني هل ستظهر الأداة للمستخدم في البرنامج أم لن 
تظهر وتأخذ هذه الخاصية قيمتان lol‏ مرئية True‏ أو غير مرئية False‏ . ويمكن 
استخدام هذه الخاصية عن طريق قائمة الخصائص في البرنامج أو كتابتها كأمر 
برمجي. مثال ذلك: إضافة صندوق الصورة Picture Box‏ إلى الشاشة مع 
وضع صورة وتحديد خاصية المرئي Visible‏ وغير المرئي Not Visible‏ للصورة: 








VisibleApp u VisibleApp‏ كم 
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كيفية كتابة الأوامر البرمجية 
(Codes)‏ لأدوات التحكم 
وخصائصها 


:(1) abs 


إعطاء yol‏ برمجي لأداة الزر Button‏ عند النقر عليه بإظهار الجملة التالية في 
مربع النص":) TextBox 1. Text = “Hi Visual Basic‏ 


تع مك سه 
لكتابة الكود التالي يتم الانتقال إلى صفحة 
الكود في البرنامج من خلال النقر المزدوج 
علص أداة الزر (Button)‏ : 


Text Box 1.Text = “ Hi Visual Basic ): ” 


برنامج ترحيب : يستخدم هذا التطبيق 
كواجهة ترحيب لبعض البرامج الصغيرة 
حيث إنه عند تنفيذ وتشغيل البرنامج والنقر 
على زر Welcome‏ يظهر النص الترحيباي 
داخل مربع النص Text Box‏ بينما يستخدم 
الزر Programmer‏ لإظهار اسم مبرمج هذا 
التطبيق و الزر Exit‏ للخروج من البرنامج. 
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يتم كتابة الكود التالي عند النقر المزدوج علص كل من Programmer, jljjÎJI‏ 
Welcome. Exit‏ : 


Programmer Button : 


Private Sub Button1_ Click ( By Val sender As System. Object, By 
Val e As System. EventArgs ) Handles Button 1 .Click 

Text Box 1 . Text = "Done By : Sheikha Al Mandhari “ 

End Sub 


Welcome Button : 


Private Sub Button2_Click ( By Vəl sender As System. Object, By 
Val e As System. EventArgs) Handles Button 2 .Click 


Text Box 1. Text = " Welcome to Visual Basic (: ” 
End Sub 


Exit Button : 


Private Sub Button3_Click ( By Val sender As System. Ob- 
ject, By Vəl e As System .EventArgs) Handles Button 3 .Click 
End sub 
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تطبيق (3): 


لتفعيل خاصية Visible‏ من خلال كتابتها كأمر yop‏ في هذا التطبيق يتم 


إضافة صندوق الصورة Picture Box‏ إلى الشاشة مع وضع صورة وتحديد 
خاصية المرئص Visible‏ وغير المرئص Not Visible‏ للصورة : 





ul VisibleApp لمحا‎ ul VisibleApp 


يتم كتابة الكود التالي عند النقر المزدوج على كل من أداتي الزر Visible‏ 
و Not Visible‏ : 


کا 
(Not Visible) (visible)‏ 


Button2_Click "Not Visib” Button1_Click "Visible” 
PictureBox1.Visible = False PictureBox1.Visible = True 





www .learn-barmaga. com | البرمجة‎ alû | www. facebook. com/barmej . dz 


ا )4(: 


إضافة زر Button‏ إلى الشاشة وتغيير اسمه إلى Ok‏ وتنفيذ الخاصية Enabled‏ 





afl EnabledApplication يه‎ EnabledApplication 











لتنفيذ خاصية Enabled‏ لأداة الزر OK‏ : يتم كتابة الكود التالي عند النقر 
المزدوج عليه : 


Button 1_Click 


”أداة الزر غير قابلة للاستخدام“ Button1.Enabled = False‏ 


Button 1_Click 


”أداة الزر قابلة للاستخدام“ Button1.Enabled = True‏ 
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الأوامر البرمجية المتحكمة في التنقل بين أدوات التحكم باستخدام مفاتيح لوح 
المفاتيح (Key Board)‏ فاي الكمبيوتر وهي: Up Key, Down Key, Left Key,)‏ 
(Right Key‏ 


Private Sub _KeyDown (ByVal sender As System.Object, ByVal e As 
System.Windows.Forms.KeyEventAros) Handles Button1.KeyDown, 
Button2.KeyDown, TextBox1.KeyDown, MyBase.KeyDown 

IF e.KeyValue = Keys.Down Then 


TextBox1.Text = "Down Key pressed” 
End IF 


IF e.KeyValue = Keys.Left Then 
Labell.Text = "Left Key pressed” 


End IF 
End Sub 


Private Sub _KeyUp (ByVal sender As System.Object, ByVal © As Sys- 
tem.Windows.Forms.KeyEventAros) Handles Button1.KeyUp, But- 
ton2.KeyUp, TextBox1.KeyUp, MyBase.KeyUp 

IF e.KeyValue = Keys.Up Then 


TextBox1.Text = "Up Key pressed” 
End If 


IF e.KeyValue = Keys.Right Then 
Label2.Text = "Right Key pressed” 


End If 
End Sub 
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لقد خلقنا لنمارس الاصرار 
هكذا نستطيع ان نعرف من 


توبايس وولف 
كاتب أمريكي 
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الدالة التكرارية 
(Repetition or Looping) 1‏ 


الدرس الثاني 





2 الدالة 
(Select Case)‏ 


1 الدالة الشرطية 
(Conditional Function)‏ 


الدرس الأول 
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الدوال أو التوابع (Functions)‏ 
في برنامج الفيجوال بيسك 


الدالة (Function)‏ : 
هي عبارة عن أسماء محجوزة (reserved words)‏ « ومعرفة من قبل 
برنامج الفيجوال بيسك لتقوم بتنفيذ إجراء معين أو مجموعة من الجمل 
البرمجية او القواعد البرمجية التي تقوم بعمل برمجي معين وله معنى 

عند كتابة الكود الخاص بهاء 

ومن أنواعها : 

الدالة الشرطية (Conditional Function)‏ : 
هي عبارة عن جملة تحكم Control Statement‏ برمجية لا يمكن تنفيذها 
ألا عند تحقق شرط معين أو على حسب التحقق من صحة الشرط المحدد. 


IF-End IF. IF-Else-End IF. If-Elself-) وتشمل هذه الدالة عدة أنواع مثل‎ 
.(End IF. Select Case 


الصيغة العامة أو القاعدة المتبعة للدالة الشرطية : 


IF condition (الشرط الواجب تحققہ)‎ then 
Statement (التعليمات أو الإجراءات التي تنفذ في حالة تحقق الشرط)‎ 


(نهاية تنفيذ الإجراء) End IF‏ 
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الجمل التي تثي جملة (Statement) If‏ 


تنفيذ الدالة الشرطية (IF Statement)‏ من خلال الأوامر 
البرمجية : 


تتضمن التطبيق التالي خانتي اختيار بداخل صندوق المجموعة Group-‏ 
Box‏ والذاي aay‏ الجنس Gender‏ وله خيارين lol‏ خانة الاختيار Male‏ أو 
خانة الاختيار Female‏ وعند تنفيذ الدالة الشرطية IF Statement‏ لكلا 
الخيارين وتشغيل التطبيق يتم النقر على إحدى الخيارين ثم النقر على 
الزر OK‏ لتنفيذ الإجراء وهو إظهار رسالة MessageBox‏ تاكيد على 
تحقق الشرط عند النقر على إحدى الخيارين ويستخدم الزر Exit‏ للخروج 





www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 





IF RadioButton1.Checked = True Then 
MessageBox.Show("l'm male:)”) 

End IF 

IF RadioButton2.Checked = True Then 
MessageBox.Show("l'm female:)”) 
End IF 


وعند النقر علص الزر Exit‏ يتم كتابة الكود التالي لإغلاق البرنامج أو 
التطبيق: End‏ 
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النوع الثاني من أنواع الدالة الشرطية If Statement‏ وهو 
If-Else-End If‏ : 


الصيغة العامة له كالاتي: 


IF (condition) Then ”الشرط الواجب تحققہ“‎ 

”في حالة تحقق الشرط يتم تنفيذ هذا الإجراء“ Statementî‏ 
”تستخدم للفصل بين إجراءين أو أمرين برمجيين“ Else‏ 

”في حالة عدم تحقق الشرط يتم تنفيذ الإجراء الثاني“ Statement2‏ 
”نهاية تنفيذ الإجراء“ End If‏ 


يستخدم هذا النوع من الدالة الشرطية Conditional Function‏ في حالة 


إجراء أو بيان Statement‏ آخر. 


IN 


A Condition(s) ^ 
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برمجة صفحة رمز المستخدم (Login Page)‏ : 


تحليل الشاشة: تتكون من متغيرين 
اسم المستخدم User name‏ و كلمة 
المرور /الرقم السري Password‏ وعند 
تنفيذ وتشغيل البرنامج أو الصفحة يتم 
إدخال البيانات المحددة في صفحة 
الكود لكل من المتغيرين بطريقة 
صحيحة ويقوم البرنامج بإرسال رسالة 
ترحيب ثم الانتقال إلى الصفحة الثانية 
نن البرنامج وهي List Box Applica-‏ 
tion‏ وفص حالة إدخال البيانات بشكل 
خاطئ يقوم البرنامج بإرسال رسالة 
تنبيه بإدخال اسم المستخدم أو كلمة 
المرور خطأ. 
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يتم كتابة الكود التالاي 
عند النقر المزدوج علص 
أداة الرز Login‏ و Exit‏ : 








Login Button : 

Private Sub Button1_Click (ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 

Dim a As String ”تعریف المتغیر“‎ 

Dim b As Integer 

"بيانات الإدخال في كل متغير" a = “Sheikha“‏ 

b = 12345 

ë& <"‏ الدالة الشرطية (IF Statement)‏ للمتغيرين a‏ و b‏ للتحقق من صحة كلا 
IF TextBox1.Text = a And TextBox2.Text = b Then‏ 
MessageBox.Show("Welcome to Application One”)‏ 
”تنفيذ الإجراء في حالة تحقق الشرطين“ Application1.Show()‏ 

Else 

'تنفيذ الإجراء في حالة عدم تحقق صحة إحدى أو كلا الشرطين" 
MessageBox.Show("Wrong Username and Password!”)‏ 
End IF‏ 

End Sub 
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Exit Button : 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button2.Click 

”كود إغلاق البرنامج“ End‏ 

End Sub 


قم بتنفيذ أمر برمجي في حالة إدخال اسم المستخدم Username‏ أو كلمة 
المرور Password‏ خطأ ثلاث مرات .يطلب البرنامج إعادة كتابة اسم مستخدم 
أو كلمة مرور جديدة من خلال إظهار رسالة تنبيه ثم يتم الانتقال إلى شاشة 
أخرص. بحيث تظهر بعد شاشة الدخول للبرنامج أو التطبيق . 


النوع الثالث: الدالة الشرطية :Elself Statement‏ 


Conditional Function هو نوع آخر من أنواع الدالة الشرطية‎ (Elself) 

وتستخدم لتنفيذ أمر برمجي في حالة التحقق من عدة شروط فإن لم يتحقق 

الشرط الأول يتم اختبار الثاني وإن لم يتحقق الشرط الثاني يتم اختبار الشرط 

الثالث وهكذا ... حتص يتحقق الشرط glg‏ لم يتحقق أي من الشروط فإن 

البرنامج يقوم بتنفيذ الإجراء gl‏ العملية في Statement‏ الواقع بعد .Else‏ 
القاعدة أو الصيغة العامة المتبعة : 

IF (condition) Then 

Statement1 

Else IF (condition) Then 

Statement 2 

Else IF (condition) Then 

Statement 3 


Else 
Statement 
End IF 
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Statement (1)‏ 
الإجراء الارل 


diha 5 Default Statement 
الإجراء الافتراضي الإجراء النلث‎ 


: (Elself) yue تطبیقي‎ Jio 


برنامج يقوم بإظهار رسالة 
تحتوي على معدل الطالب 
مربع dua Student Mark gail‏ 
يشترط لكل نتيجة معدل معين. 
فمثلا : إذا كانت نتيجة الطالب 
ما بين 909100 فإنه سيحصل 
على المعدل Î‏ أو Grade A‏ وإذا 
كانت نتيجة الطالب ما بين 90 
و فإنه سيحصل على المعدل 
ب أو .Grade B‏ وهكذا ...وهذا f‏ 

يعني للحصول على معدل 

معين لابد من تحقق صحة hpi‏ 

النتيجة المدخلة في البرنامج . 


The grade is A 
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يتم كتابة الكود التالي عند النقر المزدوج على أداتي Find j jJI‏ 
:Exit g Grade‏ 


Private Sub Button1_Click(ByVal sender As System.Object, By- 
Val e As System.EventArgs) Handles Button1.Click 

Dim StudentName As String 

Dim StudentMark As Integer 

StudentName = TextBox1.Text 

StudentMark = Val(TextBox2.Text) 


IF StudentMark >= 90 Then 
MessageBox.Show("The grade is A”) 
Else IF StudentMark >= 80 Then 
MessageBox.Show("The grade is B”) 
Else IF StudentMark >= 60 Then 
MessageBox.Show("The grade is C”) 
Else IF StudentMark >= 50 Then 
MessageBox.Show("The grade is D”) 
Else 

MessageBox.Show("The grade is F”) 
End If 

End Sub 


Exit Button : 

Private Sub Button2_Click(ByVal sender As System.Object, By- 
Val e As System.EventAros) Handles Button2.Click 

End 

End Sub 
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(Select Case) الدالة‎ 


تعني هذه الدالة "اختر الحالة" وتستخدم عندما ço‏ للمتغير عدة 
حالات أو قيم أو احتمالات. مثلا يقوم المستخدم بإدخال رقم أصغر من 
5. فيقوم البرنامج بطباعة رسالة بحسب الرقم المدخل lêge‏ عن تكرار 
استخدام الدالة ۴| و .Elself‏ 


القاعدة المتبعة : 


”المتغير الذي Select Case expression“ojliAl aww‏ 
”قيمة المتغير في الحالة الأولص“ Case value1‏ 

Statements (s) 

Case value2 

Statements (s) 

Case value3 

Statements (s) 

Case Else 

Statements (s) 

End Select 


: (Select Case) yue مثال تطبیقي‎ 


برنامج معرفة مستوصى الطالب 
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تحليل التطبيق : برنامج يقوم بإظهار رسالة تحتوي على مستوص ll‏ 
على حسب النتيجة المدخلة في مربع النص Result‏ حيث يشترط لكل 
نتيجة مستوى أو حالة معينة. فمثلا: في HI‏ الأولى إذا كانت نتيجة 
الطالب أكبر من أو يساوي 90 qilê‏ سيحصل على المستوص Excellent‏ 
وفي الحالة الثانية lal‏ كانت نتيجة الطالب أكبر من أو يساوي 80 فإنه 
سيحصل على المستوص Very Good‏ وهكذا liag...‏ يعني للحصول uuc‏ 
مستوى معين توجد أكثر من حالة ونتيجة ولا بد من تحقق صحة شرط 
النتيجة المدخلة في البرنامج. 















































Excellent 
































يتم كتابة الكود التالي عند النقر المزدوج على أداتي Find j jJl‏ 
:Exit g Grade‏ 





Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 

Dim SN As String 

Dim SM As Integer 

SN = TextBox1.Text 

SM = Val (TextBox2.Text) 

Select Case SM 
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Case Is >= 90 
MessageBox.Show("Excellent”) 


Case Is >= 80 
MessageBox.Show("Very Good”) 


Case Is >= 70 
MessageBox.Show("Cood”) 


Case Is >= 60 
MessageBox.Show("Acceptable”) 


Case Else 
MessageBox.Show("failed”) 


End Select 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button2.Click 


End 
End Sub 


«dikalî» 
هي إضافة‎ (Select Case) طريقة أخرص لتفعيل الدالة‎ 
(Case 0 To 5 ( بين قيمتين. مثال:‎ (To) 
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Repetition) الدالة التكرارية‎ 
(or Looping Function 


öll‏ التكرارية (Looping)‏ هي عملية التكرار والاستمرار في تنفيذ 
مجموعة من الجمل البرمجية طالما بقي الشرط محققا أو حتص يتحقق 
الشرط أو لعدد يحدده المستخدم من المرات. ومن أنواعها : While-End‏ 
While. Do-Loop., For‏ . 


: While-End While النوع الأول:‎ 


تستخدم هذه الدالة للاستمرار في تنفيذ كود معين (أمر برمجي) أو إعادة 
تنفيذه خلال لقة تكرارية طالما بة 1 الشرط äl 57 JI‏ به ققا أو qin‏ يڌ s‏ . 
الشرط وفي حالة عدم تحقق الشرط يخرج من الحلقة التكرارية. 


القاعدة المتبعة: 
”شرط تكرار الحلقة ” while (Condition)‏ 
"التعليمات أو الإجراءات التي تنفذ بعد تحقق الشرط“ ¬ Statement]‏ 
Statement2 l‏ 
Statement(s)‏ 
"إنهاء التكرار" End While‏ 


مثال تطبيقي علص (While Function)‏ : 


تنفيذ برنامج يقوم بإظهار رسالة خمس مرات للمستخدم ويكتب فيها ترتيب 
التكرار. وشرط تكرار هذه الحلقة أن تكون قيمة ال counter‏ أصغر من 6 وعندما 
تصبح قيمته 6 سيخرج البرنامج من الحلقة ويتوقف عن التكرار. وعند تنفيذ الحلقة 
في كل مرة يتم طباعة رسالة تحتوي علص قيمة ال .counter‏ 
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يتم كتابة الكود التالي عند النقر المزدوج علص أداة الزر Enter‏ : 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 

Dim counter As Integer 

counter = TextBox1.Text 

counter = 0 

While (counter < 6) 

MessageBox.Show(counter) 

counter = counter + 1 

End While 

End Sub 
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النوع الثاني: الدالة التكرارية «©/20)...0 : 


الدالة (For Loop)‏ تقوم بتنفيذ تكرار الكود أو الجملة البرمجية المحصورة 
بين العدد أو القيمة الأولص(الابتدائية) من أعداد التكرار والقيمة النهائية التي 
تتوقف عندها حلقة التكرار. 


القاعدة المتبعة: 
For [variable] = Start To End‏ 
State ment1‏ 
Statement2‏ 


Next [Variable] 


مثال تطبيقي علص الدالة التكرارية For...Next‏ : 


تحليل التطبيق: تصميم برنامج يقوم بتنفيذ الحلقة التكرارية للمتغير (a)‏ 
بين القيمة الأولى (0) وتتزايد إلى أن تصل إلص القيمة النهائية (10) التي 
تتوقف عندها الحلقة التكرارية مع إظهار أعداد التكرار في كلا من مربع النص 
1 ورسالة MessageBox‏ في نفس الوقت. 
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يتم كتابة الكود التالي عند النقر agajoJl‏ على أداة الزر For‏ 
Loop‏ : 


Private Sub Button1_Click(ByVal sender As System.Object, By- 
Val e As System.EventArgs) Handles Button1.Click 

Dim a As Integer = 0 

ë& l3,"‏ الحلقة التكرارية من العدد 0 إلى 

العدد النهائي 10 الذي يتوقف عنده التكرار" 

For a - 0 To 10 

TextBox1.Text = a 

MessageBox.Show("The value of a is:" & a) 

Next a 

End Sub 


النوع الثالث: الدالة التكرارية Do...Loop‏ : 


تستخدم هذه الدالة في الاستمرار في تكرار تنفيذ الكود المرفق لها وبالتالي 
على المبرمج وضع الشرط الذي يؤدي إلى إيقافها ضمن الكود المرفق 
باستخدام Exit Do‏ التي تخرج من الحلقة التكرارية وليس من الإجراء كله. 
ولهذه الدالة أنواع منها : Do-While-Loop. Do-Until-Loop‏ . 


القاعدة المتبعة: 
Do‏ 
Statement(s)‏ 
Exit Do‏ 
Statement(s)‏ 
Loop‏ 
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تحليل التطبيق: يقوم هذا التطبيق بتكرار كود معين عند تشغيله حيث 
دحدخل في حلقة تكرارية بإظهار قيمة العداد (counter)‏ في رسالة Message-‏ 
yuia Box‏ تصبح قيمته )3( وبعدها يخرج من الحلقة التكرارية فقط بسبب وجود 
الأمر البرمجي Exit Do‏ ثم يتم تنفيذ الإجراء الذي يلي الحلقة التكرارية وهو 
ظهور رسالة MessageBox (The loop Ended)‏ . 


يتم كتابة الكود التالي عند النقر المزدوج على الزر Do Loop‏ : 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 

Dim counter As Integer 

counter = 0 

Do 

IF counter = 3 Then 

"يستخدم هذا الأمر البرمجي للخروج من الحلقة التكرارية فقط“ Exit Do‏ 
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MsgBox("The loop Ended”) 
End IF 

MsgBox(counter) 

counter = counter + 1 

Loop 

MsgBox("The loop Ended”) 
End Sub 


النوع الرابع: الدالة التكرارية Do-While-Loop‏ 


في هذه الدالة يقوم البرنامج بتكرار الكود المرفق له طالما بقي الشرط 

محققا على يمين While‏ وعند عدم تحققه فإن البرنامج يخرج من الحلقة 
التكرارية أي بعكس عمل الدالة .Do-Until-Loop‏ 

القاعدة المتبعة: 

Do While تكرار الحلقة“‎ hpi” 

State ment"1 

State ment2 

Statement(s) 

”إنهاء عملية التكرار“م60ا 


يجمع بين الدالة التكرارية 
Exit-Do gDo-While-loop‏ : 





The name is:Sheikha 
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تنفيذ برنامج يقوم بإظهار رسالة 655396860 5مرات بشكل تكراري ويوجد بها 
الاسم المدخل عند إدخال أي اسم في Z‏ النص TextBox1‏ وإيقاف التكرار أو 
الحلقة التكرارية بإظهار رسالة أخرى تحتوي على كلمة "Eng"‏ من خلال الأمر 
البرمجي Exit Do‏ : 


يتم كتابة الكود التالي عند النقر المزدوج علص الزر Show‏ : 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 


Dim i As Integer = 1 "هذا المتغير يستخدم في عداد التكرار"‎ 
a = TextBox1.Text 


Do While i<= 5‏ 
”شرط تكرار الحلقة وهو إظهار رسالة بالاسم المدخل 5 مرات فقط” 


MessageBox.Show("The name is:" & a) 
IF a = "End" Then 
Exit Do ” End "إنهاء الحلقة التكرارية بإظهار رسالة‎ 


End If 


TextBox1.Text = a 
"إكمال الإجراء عند إدخال اسم في مربع النص وإظهار 5 رسائل بالتزايد"‎ 


i=i+1 


”الخروج من الإجراء كله“ Loop‏ 


End Sub 
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النوع الخامس: الدالة التكرارية Do-Until-loop‏ 
في هذه الدالة يقوم البرنامج بالاستمرار في تكرار الكود المرفق لها حتص يتحقق 
الشرط أو الاستمرار في التكرار في حالة عدم تحقق الشرط. 
القاعدة المتبعة: 
Do Until (condition)‏ 
Statement1‏ 
Statement 2‏ 


Loop 


تحليل التطبيق: يقوم هذا التطبيق بالاستمرار في تكرار ظهور مربع الإدخال 
Input Box‏ لكتابة الاسم الصحيح فيه في حالة عدم تحقق الشرط بكتابة كلمة 
خاطئة أو التكرار حتص يتحقق الشرط وذلك بإدخال الكلمة الصحيحة في صندوق 
الإدخال وهي ."Abcg"‏ 








Tutorial6 











Please, Enter Correct Name 














بعد تصميم التطبيق. يتم كتابة الكود التالي من خلال النقر 
المزدوج على الزر :Do Until‏ 

Private Sub Button1_Click(ByVal sender As System.Object, By- 

Val e As System.EventArgs) Handles Button1.Click 

Dim x As String = "Abcd” 

Do 

x = InputBox("Please, Enter Correct Name”) 

Loop Until x = "Abcd” 

End Sub 
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تطبيق: مقارنة بين الدالة التكرارية Do-Until- loop‏ 
و Do-While-loop‏ 


تحليل التطبيق : ينفذ هذا التطبيق حلقة تكرارية لأمر برمجي وهو ظهور تزايد 
قيمة العدد (Number)‏ كل مرة 5 مرات حتص تصبح قيمة العدد )= Number‏ 
50( وبعدها يتوقف عن الحلقة التكرارية. 





af DoUntilApp af DoUntilApp 




















The value is:5 


يتم كتابة الكود التالي عند النقر المزدوج علص الزر :Do Until‏ 


سنلاحظ في الدالة Do-Until-Loop‏ إن البرنامج يقوم بالاستمرار في 
تكرار الكود المرفق لها في حالة عدم تحقق الشرط أو حتص يتحقق الشرط 
المطلوب وهو بأن قيمة العدد تساوي 50. 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 

Dim Number As Integer 

Do Until (Number = 50) 

Number = Number + 5 

MsgBox("The value is:" & Number) 

Loop 

End Sub 
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أما في الدالة Do-While-Loop‏ يقوم البرنامج بتكرار الكود المرفق لها طالما 
بقي الشرط محققا على يمين While‏ وعند عدم تحققه فإن البرنامج يخرج 
من الحلقة التكرارية أي بعكس عمل الدالة .Do-Until-Loop‏ وهذا ما لاحظناه 
عند تطبيق نفس الأمر البرمجي وهو gb‏ قيمة العدد )50 = (Number‏ لم 
يتحقق شرط الدالة التكرارية aA dun Do-While-Loop‏ مباشرة من الحلقة 
التكرارية وتم تنفيذ الحلقة التكرارية بتغيير شرط تكرار الحلقة وهو بأن قيمة 
العدد (Number<=50)‏ كما هو موضح في الكود أو الأمر البرمجي التالي: 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 
Dim Number As Integer 


Do While Number <= 50 


MsgBox("The value is:" & Number) 
Number = Number + 5 

Loop 

End Sub 
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ضع دائما صورتك التي تريد أن تكون 

عليها في عقلك ومخيلتك ,وستتجه 

تدريجيا نحوها .. اذا لم تهزم نفسك , 

ستهزمك نفسك .. سلم النجاة لا يعاني 
من الإزدحام في أعلاه 

نابليون هيل 

كاتب أمريكي 
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(Array) المصفوفات‎ 1 


الدرس الثاني 





(Mod Function) الدالة‎ 2 
(Val Function) الدالة‎ 1 


الدرس الأول 
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هي الدالة التي تقوم بتحويل القيمة النصية (String)‏ إلى قيمة عددية 
(Integer)‏ ومثال ذلك: Val (TextBox1.Text)‏ 


تحليل برنامج: يقوم البرنامج 
وهي "الجمع" عند إدخال رقمين 
في مربع النص TextBox1,2‏ 
والنقر على زر Calculate‏ لإظهار 
الناتج في مربع -Result gail‏ 


لكتابة الكود أو الأمر البرمجي يتم النقر المزدوج علص زر Calculate‏ فيما يلي: 
Dim a, b As Integer‏ 


”تعريف متغيرين ألا وهما الرقم الأول والرقم الثاني في البرنامج“ 


"بعد ذلك يتم تحديد مكان أو أداة التحكم لكل متغير في البرنامج مع كتابة 
خاصية (Function Val)‏ لإجراء العملية الحسابية" 
a = Vəl(TextBox1.Text)‏ 
b = Val(TextBox2.Text)‏ 
TextBox3.Text = a + b‏ 
"تنفيذ العملية الحسابية بين المتغيرين لإظهار الناتج في مربع النص "JJI‏ 
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(Mod Function) الدالة‎ 


BEÎ ModFunctionApp 





تستخدم هذه الدالة لتحديد lo‏ إذا كان الرقم 
المدخل في التطبيق زوجيا Even‏ أم فرديا 000. 





تحليل البرنامج: في هذا البرنامج يطلب من 
المستخدم إدخال أي رقم في مربع Text- gail‏ 
1 وعند النقر على زر Check‏ يقوم البرنامج 
بإرسال رسالة تحدد ما إذا كان الرقم المدخل زوجيا 
Even‏ أم Odd bayê‏ وذلك من خلال استخدام 
الدالة .Mod Function‏ 








:Check يتم كتابة الكود التالي عند النقر المزدوج علص الزر‎ 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click 
Dim a As Integer "المتغير (العدد) الذي يتم إدخاله في مربع النص"‎ 
a = TextBox1.Text 
IF a Mod 2 = 0 Then 
"لو كان باقي قسمة العدد على 2 يساوي 0 فهذا يعني إن العدد زوجي"‎ 
MessageBox.Show("This is even number”) 
Else 
MessageBox.Show("This is 000 number”) 
End IF End Sub 
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المصفوفة : هي نوع من أنواع الدالة التسلسلية Serial Function‏ وهي 
عبارة عن متغيرات مفهرسة (Indexed Variables)‏ تحتوي علص بيانات عديدة 
من نفس النوع Date Type‏ وكل مصفوفة لها اسم واحد يمكن استخدامه 
للرجوع إلى أي عنصر å (Element)‏ وذلك باقتران هذا الاسم بدليل يمثل 
مكان العنصر å‏ ويمكن إنشاء مصفوفة لاحتوائها على أي نوع من أنواع 
البيانات مثل : النصوص والأعداد الحقيقية والصحيحة وغيرها. وأهميتها تكمن 
في صناعة أوامر برمجية (Codes)‏ قصيرة وبسيطة ذات قوة كبيرة لأنه يمكن بناء 
65 تتعامل بكفاءة مع المصفوفات مهما كان aac‏ عناصرها .(Elements)‏ 


شكل المصفوفة المخزنة في ذاكرة الحاسوب 
كيفية تنفيذها كأمر برمجي في برنامج الفيجوال بيسك: 


Dim (Array Name) As DataType )( New DataType (No. of REV, 
(Elements of Array) 


"تعريف المصفوفة go‏ نوع البيانات الموجودة فيها وفهرستها" 
يتم تعريف العناصر في المصفوفة بطريقتين: 
{Elements of Array}‏ 1 
ArrayName(No. of Index) = Element‏ 2 


"إدخال المصفوفة في دالة تكرارية" Then use Loop Function‏ 





www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 


النوع الأول : المصفوفة من نوع بيانات أعداد صحيحة (Integer)‏ 


تحليل التطبيق: من خلال هذا التطبيق يتم تعريف أربعة عناصر (Elements)‏ 
في مصفوفة من نوع بيانات أعداد صحيحة daa (Integer)‏ يتم تعيين كل 
pic‏ داخل فهرس المصفوفة (Index of Array)‏ الذي يبدأ دائما من الصفر 
0 إلى 3 ويمكن استرداد هذه العناصر من المصفوفة من خلال تنفيذ الدالة 
التكرارية .For-Next‏ 
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بعد تصميم التطبيق أعلاه. يتم كتابة الكود التالي من خلال jäl‏ 
المزدوج علص الزر Declaring and Initializing an Integer‏ 
Array‏ : 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventAros) Handles Button1.Click 
Dim array As Integer() = New Integer(3) { } 
“£10, 20, 30, 40$” 

array(0) - 10 

array(1) = 20 

array(2) - 30 

array(3) - 40 

For i As Integer = 0 To array.Lenoth - 1 
MessageBox.Show(array(i)) 

Next 

End Sub 


(String) الثاندي: المصفوفة من نوع بيانات حروف‎ egil 


تحليل التطبيق: من خلال هذا التطبيق يتم تعريف سبعة عناصر (Elements)‏ 
في مصفوفة من نوع oll‏ حروف (String)‏ وهاي أسماء أيام الأسبوع حيث يتم 
guzi‏ كل اسم داخل فهرس المصفوفة of Array)(week(6))‏ “«1006)الذي يبدأ 
دائما من الصفر 0 إلى 6 ويمكن استرداد هذه الأسماء من المصفوفة من خلال 
تنفيذ الدالة التكرارية For-Next‏ وتحديد طول مصفوفة أيام الأسبوع وعند تشغيل 
التطبيق يتم إظهار أسماء أيام الأسبوع في القائمة (ListBox1)‏ واستردادها من 
المصفوفة (Week(6))‏ عند النقر علص الزر. 
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بعد تصميم التطبيق أعلاه. يتم كتابة الكود التالي عند النقر المزدوج على الزر 


: Declaring and Initializing String Array 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 
Dim i As Integer 
Dim week(6) As String 
week(0) = "Saturday” 
week(1) = "Sunday 
week(2) = "Monday” 
week(3) = "Tuesday” 
week(4) = "Wednesday” 
week(5) = "Thursday” 
week(6) = "Friday” 
For i = 0 To week.Length -1 
ListBox1.ltems.Add(week(i)) 
Next 
End Sub 
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— ج کڪ ڪڪ = = = =s‏ ڪڪ 


ملاحظة: ولتحديد ظهور أو اختيار اسم aag‏ من lic‏ المصفوفة 

(Week(6))‏ في التطبيق يتم تحديد اسم العنصر المطلوب وفهرسته من 
خلال كتابة الأمر البرمجي التالي: 

Dim weekName As String = week(0) 

IF week(0) = weekName Then 

MessageBox.Show(week(0)) 

End If 


afl StringArrayApp 





Saturday 


كيفية تغيير حجم المصفوفة (Array.Resize)‏ 


يمكن us‏ حجم أي مصفوفة. وتصبح مصفوفة ذات حجم أكبر أو أصغر من 
العناصر المخزنة بها من خلال الأمر البرمجي .(Array.Resize)‏ وهذا يعني تغيير 
عدد من عناصر المصفوفة أحادية البعد إلى حجم جديد آخر. 


تحليل التطبيق: خلال هذا التطبيق يتم تغيير pan‏ المصفوفة (Abcde)‏ 
من الحجم الأصلي المكون من خمس عناصر مفهرسة من 0 إلى 4 وهي 
A- 8- C- D- ©‏ التي تظهر في رسالة MessageBox‏ عند تشغيل التطبيةق 
والنقر علص الزر an array‏ 562156 إلى al‏ الجديد المكون من عنصرين 
مفهرسين من 0 إلى 1 وهي A-B‏ التي تظهر في رسالة MessageBox‏ بعد 
إظهار الحجم الأصلي للمصفوفة عند تشغيل البرنامج. 
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بعد تصميم التطبيق أعلاه. يتم كتابة الكود من خلال النقر agajoJl‏ على الزر 


: Resize an array 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button1.Click 
Dim Abcde As Char() = New Char(4) Û) 
Abcde(0) = "A” 
Abcde(1) = "B” 
Abcde(2) = "C” 
Abcde(3) = "D” 
Abcde(4) = "E” 
For i As Integer = 0 To Abcde.Length - ”المصفوفة الأصلية“1‎ 
MessageBox.Show(Abcde(i)) 
Next 
Array.Resize(Abcde, 2) “Aay ”المصفوفة بعد تغيير‎ 
For i As Integer = O To Abcde.Lenoth -1 
MessageBox.Show(Abcde(i)) 
Next 
End Sub 





www .learn-barmaga. com | البرمجة‎ alû | www. facebook .com/barmej . dz 


u ResizeApp 























"عناصر اله 5 a‏ وهفة بعد تغيير 2 "la 9 a‏ 


(Dynamic Array) المصفوفة الحيوية‎ < 


في بعض الأحيان قد لا يمكننا معرفة كيف يمكن زيادة حجم المصفوفة وربما 
لا تكون لدينا القدرة على تغيير حجم المصفوفة في وقت تشغيل البرنامج. و 
الحل هو المصفوفات الحيوية (Dynamic Array)‏ حيث 
لها القدرة على تغيير laaya‏ في أي وقت وهي من 
بين الميزات الأكثر مرونة ومريحة في Visual Basic‏ 
والتي تساعدك على إدارة الذاكرة بكفاءة. على سبيل 
المثال. يمكنك استخدام مصفوفة كبيرة لفترة قصيرة 
يمومن ثم تحرير الذاكرة في النظام عندما لا نحتاج إلى 
استخدامها في المصفوفة. والبديل هو أن يتم تعريف 
أو إعلان (Declare)‏ مصفوفة ذات حجم أكبر ومن ثم 
تجاهل عناصر المصفوفة التي لا نحتاج إليها. 
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ويمكننا التعريف أو الإعلان عن مصفوفة حيوية من خلال إعطاءها قائمة أبعاد 
فارغة .(An Empty Dimension List)‏ مثال ذلك: () Dim DynArray‏ . 


ثم تخصيص العدد الفعلي من العناصر (Exact number of elements)‏ فەي 
المصفوفة من خلال الأمر البرمجي التالي مثلا: 

. ReDim DynArray (X + 1) 

حيث (X)‏ توضح عدد العناصر في المصفوفة الفارغة أو الأصلية (X+1)‏ هي عند 
إظافة Alie‏ اخرص لتغيير حجمها. 


حيث تستخدم ReDim‏ في الإجراء dun Statement‏ تكون قابلة لتنفيذ الإجراء 
(an executable statement)‏ أثناء وقت تشغيل البرنامج. وهي تدعم نفس 
cl‏ الجملة المستخدمة للمصفوفة الثابتة (Fixed Array)‏ ويمكنها تغيير aac‏ 
العناصر في المصفوفة. 


تحليل التطبيق: يقوم هذا التطبيق بتنفيذ المصفوفة الحيوية Dynamic Array‏ 
ذات قائمة أبعاد فارغة () marray‏ لتغيير حجم المصفوفة من marray(2)‏ إلى 
marray(10)‏ ذات حجم أكبر dun‏ يتم تخصيص aac‏ العناصر الفعلية لكل مصفوفة 
وتجاهل palic‏ أخرى من المصفوفة التي لا نحتاج إليها في المصفوفة الأكبر التي 
تم تغيير aay‏ من خلال تنفيذ الأمر البرمجي ReDim Reserve‏ الذي يستخدم 
للحفاظ علص العناصر الموجودة داخل المصفوفة عند تغيير حجمها. وعند تشغيل 
البرنامج تظهر جميع العناصر في المصفوفة قبل وبعد تغيير حجمها في قائمة 
ListBox1‏ عند النقر على زر .Show‏ 
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بعد pani‏ التطبيق أعلاه. لتنفيذه يتم كتابة الكود عند 
النقر المزدوج علص الزر Show‏ 
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Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventAros) Handles Button1.Click 


Dim marray() As Integer ذات قائمة أبعاد فارغة"‎ ägna "تحديد مصفوفة‎ 
ReDim marray(2) حجمها"‎ ju) المصفوفة قبل‎ palic من‎ aac "تخصيص‎ 
marray(0) - 0 

marray(1) = 0 

marray(2) - 0 


ReDim Preserve ) 


”تخصيص palic‏ أخرى للمصفوفة عند تغيير حجمه“ 
marray(3) = 40‏ 
marray(4) = 50‏ 
marray(5) = 60‏ 
marray(6) = 70‏ 
marray(7) = 80‏ 
marray(8) = 9O‏ 


For i = 0 To 10 المصفوفة في حلقة تكرارية محددة"‎ palice "دخول‎ 
ListBox1.ltems.Add(i & vbTab & marray(i)) 

إظهار جميع عناصر المصفوفة في ListBox1”‏ ” 

Next i 

End Sub 
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النجاح قمة لا يرتقي سلمها إلا 
أصحاب الهمم العالية لأن همتهم 
تقودهم إلى المواصلة وإن تعثرت 
خطاهم 
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1 تطبيقات على أدوات تحكم 
RE‏ هحور 1 


الدرس الثاني 





1 تطبيقات yue‏ أدوات التحكم 
والدوال في الفيجوال بيسك 


الدرس الأول 


www.learn-barmaga.com | تعلم البرمجة‎ | www.facebook.com/barmej.dz 


| تطبيقات علص أدوات التحكم 


والدوال في الفيجوال بيسك 


صندوق أو خانة الاختيار :(Check Box)‏ هو عنصر أو أداة تحكم يسمح 
للمستخدم باختيار أكثر من خيار في نفس الوقت من مجموعة معرفة مسبقا 
من الخيارات والتي قد تكون له قيمتان True‏ أو False‏ . 


يتضمن هذا التطبيق ثلاث خانات اختيار 
من نوع CheckBox‏ بداخل صندوق 
المجموعة والذي يحدد الهوايات Hob-‏ 
og bies‏ ثلاث خيارات أما خانة الاختيار 
Traveling‏ أو خانة الاختيار Shopping‏ 
أو خانة الاختيار Reading Stories‏ 
ععند تنفيذ الدالة الشرطية IF State-‏ 
ment‏ لكل خيار وتشغيل التطبيق يتم 
النقر علص أي خيار أو أكثر من خيار ثم 
النقر علص الزر Choose‏ لتنفيذ الإجراء 
وهو إظهار رسالة MessageBox‏ تأكيد 
علص تحقق الشرط عند النقر على أي 
من الخيارات الثلاثة ويستخدم الزر Exit‏ 
للخروج من التطبيق. 
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يتم كتابة الكود التالي عند النقر المزدوج علص أداة الزر Choose‏ : 

IF CheckBox1.Checked = True Then 

MessageBox.ShowC("l like travelino(:”) 

End If 

IF CheckBox2.Checked = True Then 

MessageBox.Show("I like shopping(:”) 

End IF 

IF CheckBox3.Checked = True Then 

MessageBox.ShowC("l like Reading Stories(:”) 

End If 

ويتم كتابة الكود التالي عند النقر المزدوج علص أداة الزر Exit‏ للخروج من 
التطبيق: 600 


تنفيذ العمليات الحسابية عن طريق الأمر البرمجي (MessageBox)‏ 


تصميم وتنفيذ برنامج يقوم بإظهار رسالة MessageBox‏ لعددين مع إجراء 
العمليات الحسابية عليهما لإظهار الناتج من خلال تحديد أربعة أزرار Button‏ 
للعمليات الحسابية وهي Div)‏ .ا" (Add, Sub,‏ وكتابة أو تنفيذ الأوامر البرمجية 
فيهم: 
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يتم كتابة الكود التالي عند النقر المزدوج علص كلا من الأزرار 
Add. Sub. Mul. Div‏ : 


Add Button : 

Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click 
MessageBox.Show(" 10 + 10 " & "=" & 10 + 10) 

End Sub 

Sub Button : 

Private Sub Button2_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button2.Click 
MessageBox.Show(" 15 - 10 " & "=" &15 - 10) 

End Sub 

Mul Button : 

Private Sub Button3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button3.Click 
MessageBox.Show(" 10 * 10 " & "=" & 10 *10) 

End Sub 

Div Button : 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button4.Click 
MessageBox.Show(" 15 / 5" & "=" &15 / 5) 

End Sub 


أنواع المتغيرات (Variables Types)‏ : 
تحليل التطبيق: 
يقوم هذا التطبيق بتنفيذ إجراء huw‏ وهو إظهار رسالتين MessageBox‏ الأولى 


تحتوي على pio‏ من نوع String‏ والثانية تحتوي على متغير ثاندي من نوع 
Integer‏ عند تشغيل البرنامج أو التطبيق والنقر علص زر Variable Type‏ . 
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لتنفيذ التطبيق يتم النقر المزدوج على أداة الزر VariableType‏ : 


Dim StudentName As String = "Sheikha" ”تعريف المتغير“‎ 
Dim StudentAge As Integer = 25 
MessageBox.Show(StudentName, "StudentName ”) 
”إظهار رسالة ببيانات المتغير“‎ 

MessageBox.Show(StudentAge, StudentAge) 


التطبيق الرابع : 


من خصائص الدالة :Select Case‏ عند استخدام qaal‏ المعاملات 
المنطقية Jio‏ )<> =>=<. <>...) يتم إضافة (Is)‏ بعد كل حالة .(Case)‏ 


Jda‏ التطبيق : في هذا البرنامج أو التطبيق يوجد للمتغير أكثر من حالة حيث أن 
في الحالة الأولى إذا كان العمر المدخل 12 فستظهر رسالة بالمرحلة التي يكون 
aå‏ الشخص خلال هذا العمر وهو بأنه قاصر على حسب القانون وفي الحالة 
الثانية إذا كان العمر المدخل 15 فإنه مكلف بحسب القانون المدني وهكذا... وهذا 
يعني إنه في عمر معين (المتغير في البرنامج) توجد حالة خاصة له ويتم تحديده 
مسبقا من خلال صفحة الكود. 
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„jl‏ يحق لك إهتلاك وإدارة الشركات 


:Enter Age يتم كتابة الكود التالاي عند النقر المزدوج علاى أداة الزر‎ 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventAros) Handles Button1.Click 

Dim age As Integer 

age = TextBox1.Text 

Select Case age 

Case 12 

(”أنت قاصر بحسب MessageBox.Show (“cıgilöJl‏ 

Case 15 

(”أنت مكلف بحسب القانون Message 8ox.Show (“yua‏ 

Case 18 

(”يحق لك الآن إمتلاك الشركات والإدارة“) MessageBox.Show‏ 

Case 40 

(”دخلت مرحلة الوقار") MessageBox.Show‏ 

Case 65 

MessageBox.Show ("~+clãil pac )”بلغت‎ 

Case Else 

MessageBox.Show (“Al (”معلومات‎ 

End Select 

End Sub 
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التطبيق الخامس: 
مقارنة بين الدالة (For-Next- loop & Do loop)‏ 


تطبيق مكون من أداتي زر كل واحد منهما يقوم بتنفيذ إجراء أو عملية التكرار 
للأمر برمجي وهو العد من 1 إلى 10 باستخدام الدالة التكرارية For...Next‏ 
للتكرار من القيمة الابتدائية (1) وينتهي التكرار عند القيمة النهائية (10) عند 
تشغيل التطبيق والنقر على الزر الأول. أما بالنسبة للزر الثاني يقوم بتنفيذ 
حلقة تكرارية وشرط تكرار الحلقة هو عد الأعداد الأصغر من أو يساوي 10 
من خلال تنفيذ أمر برمجي باستخدام الدالة Do-While-Loop‏ وإظهار نتيجة 
الحلقة التكرارية لكل من أداتي الزر في القائمة ListBox1‏ عند تشغيل البرنامج. 


ForlcopDoloopÃpp‏ له 


Count from 1 to 1Û using For 


u Gû =J ê ûn سل‎ CE BI a 


| Count from 1 to 10 using Do 


5 
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يتم كتابة الكود التالي عند النقر المزدوج علص أداتي الزر التاليتين: 


Count from 1 to 10 using For loop : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 

Dim i As Integer 

ListBox1.ltems.Clear() 

”تنفيذ الحلقة التكرارية من القيمة الابتداثية )1( إلى أن تنتهي عند القيمة 
النهائية )10( For i -1To10‏ 

ListBox1.ltems.Add(i) 

Next i 

End Sub 


Count from 1 to 10 using Do loop : 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button2.Click 
Dim a As Integer 

a =1 

ListBox1.ltems.Clear() 

Do While a <= 10 

”شرط تكرار الحلقة هي عد الأعداد الأصغر من 

أو يساوي )10( وبعدها تتوقف الحلقة التكرارية“ 

ListBox1.ltems.Add (a) 

a -a+1 

Loop 

End Sub 
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(Timer) المؤقت‎ 

وو aal‏ أدوات التحكم الموجودة في Tool-‏ 
Box‏ في برنامج الفيجوال بيسك وهو الذي 
يقوم بتنفيذ الإجراء الخاص به وتوقيته كل 
مدة محددة تحدد بثانية. ومن خلال التطبيق 
في برنامج الفيجوال بيسك: 


Time: 25 11:02:15 


Date: 08-17-2014 


| JÊ se | 


(وقت تشغيل المؤقت Timer‏ ووقت ايقافه) 
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بعد تصميم هذا التطبيق. يتم كتابة الكود التالي عند النقر 
المزدوج علص كلا من Timer‏ وأداتص الزر Start‏ و :Stop‏ 


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e 
As System.EventAros) Handles Timerl.Tick 

"الكود الذي يكتب في المؤقت هو تحديد بداية الوقت وتزايده كل 

ثانية في مربع النص “(Time)‏ 

Dim a as integer 

a = Val ) 

TextBox1.Text - Val (TextBox1.Text +1) 

Label3.Text = TimeString "لإظهار الوقت"‎ 

TextBox2.Text = DateString "لإظهار التاريخ"'‎ 

End Sub 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventAros) Handles Button1.Click 

" كود تشغيل و تنفيذ الإجراء الخاص بالمؤقت كل ثانية"0) Timerl1.Start‏ 
End Sub‏ 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles Button2.Click 

Timer1.Stop 0 

”كود إيقاف تنفيذ الإجراء الخاص بالمؤقت كل ثانية“ 

End Sub 


(ListBox) القائمة‎ 


هي ölaÎ‏ من أدوات التحكم في البرنامج وتستخدم للاختيار بين عدة اختيارات 
و تصلح عندما يكون عدد الاختيارات كبيرا وذلك من خلال سرد أو إدراج أو كتابة 
مجموعة من العناصر (الاختيارات) بداخلها. 
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بعد أن يتم mans‏ التطبيق أعلاه. يتم كتابة الكود التالي عند 
النقر المزدوج علص الأزرار Clear g Enter‏ و Close‏ : 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e‏ 
As System.EventAros) Handles Button1.Click‏ 
”لإضافة palie‏ في القائمة“ ListBox1.ltems.Add(TextBox1.Text)‏ 
Or ListBox1.ltems.Add (“new item”)‏ 
End Sub‏ 


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button3.Click 

TextBox1.Clear() “Jail gyo من‎ pic ”لحذف أي‎ 

End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button2.Click 

End 

End Sub 
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مربع السرد أو التحرير ) (ComboBox‏ 


مربع السرد أو التحرير :ComboBox‏ هو aal‏ أدوات التحكم الموجودة 
في البرنامج وهو الذي يجمع بين القائمة ListBox‏ ومربع النص Textbox‏ 
ويحتوي على العديد من الاختيارات أو العناصر بداخله حيث يستخدم للاختيار 
بين متعدد و يصلح عندما يكون عدد الاختيارات كبيرا. 








بعد تصميم التطبيق أعلاه. يتم كتابة الكود التالي عند النقر 
المزدوج علص الأزرار Add «Clear. Show. How much u add,‏ 
- 
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Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click 
ComboBox1.ltems.Add("Fruit”) 
ComboBox1.ltems.Add("Vegetable”) 
ComboBox1.ltems.Add("Meat”) 
ComboBox1.ltems.Add("Softdrink”) 

CON O O EMSAN Watek 
ComboBox1.ltems.Add(“Snack 
ComboBox1.ltems.Add(ComboBox1.Text) 

End Sub 


”لحذف العناصر كلها“ Clear Button:‏ 

Private Sub Button2_Click_1(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button2.Click 
ComboBox1.ltems.Clear () 

End Sub 


Show Button: “aul ”لمعرفة أي عنصر تم اختياره من مربع‎ 
Private Sub Button4_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button4.Click 
MessageBox.Show(“You Select” + ComboBox1.Text”) 

End Sub 


How much u add Button : “awl العناصر الموجودة في مربع‎ aac ”لمعرفة‎ 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button5.Click 
MessageBox.Show(ComboBox1.ltems.Add(ComboBox1.Text)) 
End Sub 


”للخروج من التطبيق" Exit Button:‏ 

Private Sub Button3_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button3.Click 

End 

End Sub 
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توضيح آلية عمل الشريط المتحرك 
(Progress Bar)‏ عند تحميل أي برنامج 


الشريط المتحرك Jio :Progress Bar‏ عنصر تحكم في البرنامج وهو 
عبارة عن شريط التقدم يتم استخدامه لتوفير ملاحظات مرئية للمستخدمين 
حول وضع بعض المهام في التطبيق المبرمج dun)‏ تظهر حركة الشريط الذي 
يملأ من اليسار إلى اليمين حتص يتم الانتهاء من تلك المهام أو الإجراءات 
وبالتالي Jois,‏ الشريط ويتوقف عن الحركة. ومثال ذلك يظهر هذا الشريط 
في zoll‏ أثناء عملية تحميل هذه البرامج أو إعادة تحميلها. 
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لبداية حركة Progress Bar‏ يتم النقر علص الزر go Start‏ ظهور نسبة التحميل 
المئوية أسفل الشريط وعند إكمال التحميل تظهر كلمة Hello‏ في أداة التسمية 
Labelî‏ مع تغير لون خلفية أداة التسمية ولون الخط في نفس الوقت. وعند 
إعادة التحميل من خلال الشريط Progress Bar‏ يتم النقر على الزر Reset‏ وترجع 
كلمة Visual Basic‏ بظهور في Labell‏ مع تغير لون خلفية أداة التسمية ولون 
الخط وتصبح نسبة التحميل 0%. 

ملاحظة: يضاف المؤقت Timer‏ في هذا البرنامج dun‏ يتم تحديد مدة زمنية 
معينة مع الشريط Progress Bar‏ أثناء عملية التحميل yua‏ اكتمال المهمة أو 
الإجراء. 


يتم كتابة الكود التالي عند النقر agajoJl‏ على المؤقت Timer1‏ 


Start Button : 


Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click 
OTimer1.Start ”تشغيل المؤقت"“‎ 

End Sub 

Reset Button : 

Private Sub Button2_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button2.Click 
Timer1.Stop )( ”إيقاف المؤقت"‎ 

ProgressBar1.Value = 0 “In, jJl ”انتهاء التحميل في‎ 
"Label1.Text = "Visual Basic هذه الكلمة عند إعادة التحميل“‎ jabl” 
Label1.BackColor = Color.Green ”تغيير لون خلفية الكلمة“‎ 
Labell.ForeColor = Color.Brown “anll لون‎ wsi” 

”النسبة المثوية عند الإعادة“ "0%" = Label2.Text‏ 

End Sub 


:Reset o Start وأداتي الزر‎ 
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ويكتب الأمر البرمجي التالي عند النقر المزدوج على المؤقت 
:Timer‏ 








Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Timerl.Tick 

”حركة الشريط وتزايده بمقدار نقطة“ ProoressBar1.lncrement1‏ 

”عند اكتمال حركة الشريط أو اكتمال التحميJل“‏ 100 = IF ProgressBar1.Value‏ 
Then‏ 

Hello ” ”‏ ”تظهر في أداة التسمية كلمة أخرص وهي Label1.Text = "Hello‏ 
"تغيير لون خلفية الكلمة" Label1.BackColor = Color.Gold‏ 

Label1.ForeColor = Color.Gray “ANI ”تغيير لون‎ 

End IF 

”تزايد النسبة المئوية أثناء عملية التحميل“ Label2.Text = ProgressBar.‏ 
Value & ("%0") End Sub‏ 


التطبيق الخامس : 


شريط القوائم Tool Strip‏ و أداة 
التنقل بين الصفحات Tab Control‏ 


شريط القوائم ga :Tool Strip‏ شريط المهام الذي ag‏ في أعلى صفحة أي 
برنامج أو تطبيق وهو عنصر تحكم في برنامج الفيجوال بيسك ويتضمن بداخله 
مجموعة من الخانات التي تعتبر بمثابة خيارات للبرنامج حيث أن من خلالها يمكن 
حفظ ملف أو اختيار صورة أو ia‏ معلومات أو الانتقال إلى صفحات أخرى من 
التطبيق أو الخروج من التطبيق وغيرها من الخيارات من خلال تحديد خيار لكل خانة 
وكتابة أمر برمجي متعلق بها. 

أداة التنقل بين صفحات البرنامج :Tab Control‏ عبارة عن عنصر تحكم في برنامج 
الفيجوال بيسك ويستخدم في شاشات (Forms)‏ أي تطبيق للانتقال من صفحة 
إلى أخرص في نفس الشاشة مثلا ويمكن أن يتضمن أدوات تحكم أخرى في 
البرنامج مع تحديد مهام أو إجراءات خاصة بها من خلال الأوامر البرمجية ولها 
فائدة بانها تقلل او تقلص حجم التطبيق المصمم او المبرمج لعدم استهلاك 
الكثير من الشاشات (Forms)‏ في نفس التطبيق. 
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Form2‏ ليه 














a Form2 











Form2‏ لزه 


ار 





|: File + Help ~ Exit ~ $r Images 


TabPage1 TabPage2 | TabPage3 | 


r¬ | 
| | 
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يتم كتابة الكود التالي عند النقر المزدوج على كل من 
أدوات التحكم التالية لإظهار إجراءات التطبيق عند تشغيله : 





Private Sub Open Tool Strip Menu Item_Click(ByVal sender As Sys- 
tem.Object, ByVal e As System.EventArgs) Handles Open Tool Strip 
Menu Item.Click 

”لإظهار شاشة أخرص“ () Form1.Show‏ 

End Sub 


CloseProgramToolStrioMenultem (Exit-Close Program) : 


Private Sub Close Program Tool Strip Menu Item_Click(ByVal sender 
As System.Object, ByVal e As System.EventArgs) Handles Close Pro- 
gram Tool Strip Menu Item.Click 


nter Button : 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Button1.Click 
TextBox1.Text = "Sheikha" “jJl هذا الاسم عند النقر علص‎ labu” 
End Sub 


ShowMessageToolStrioMenultem (Help-Show Message) : 


Private Sub Show Message Tool Strip Menu Item_Click(ByVal 
sender As System.Object, ByVal e As System.EventArgs) Handles 
ShowMessage Tool Strip Menu Item.Click 
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MessageBox.Show("This is Help Form ”) 
Show Message) ثم‎ (Help ( "لإظهار رسالة في التطبيق عند النقر على الخانة‎ 
End Sub 


ool Strip Label4 (Images) : 


Private Sub ToolStriplLabel4_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Tool Strip Label4.Click 

PictureBox1.lmage = My.Resources.Picture1 

"لإظهار صورة في الصفحة الثانية لأداة التنقل بين الصفحات من خلال النقر على 
خانة “(Images)‏ 

End Sub 


التطبيق السادس : 





استخدام وكتابة Multi Lines‏ كأمر 
yop‏ في مربع النص TextBox‏ 


aj TextBoxMultilineApp 


Name Address 
Rashid Muscat 
Ameera 2 Sohar 
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لتنفيذ التطبيق السابق . يتم كتابة الكود التالي عند النقر المزدوج 
علص الزر :Enter‏ 

TextBox1.Text = (“Name” & vbTab & “Age” & vbTab & “Address”) 

TextBox1.Text &= (vboNewLine & “Rashid” & vbTab & “23” & vbTab & 

“Muscat”) 

TextBox1.Text &= (vboNewLine & “Ameera” & vbTab & “28” & vbTab 

& “Sohar”) 

ملاحظة: تستخدم vbTab‏ للفصل بمسافة بين الكلمة الأولص والثانية في 

(Line 2) للانتقال إلى السطر الثاني‎ voNewLline وتستخدم‎ (Line) pawl 
.TextBox في مربع النص نفسه‎ 


التطبيق السابع : 


تطبيق برنامج Windows Media Player‏ 
في برنامج الفيجوال بيسك 
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بعد تصميم التطبيق السابق . يتم كتابة الأوامر البرمجية في 
كل من الأزرار التالية: 


Load Button :‏ 
ايستخدم هذا الأمر البرمجي في إدراج ملفات الفيديو أو الصوت الموجودة 
في الجهاز الخاص بك "Lio‏ 

IF (OpenFileDialog1.ShowDialog = DialogResult.OK) Then 

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName 
"هذا الكود يتبع رابط الفيديو الذي تم استدعاءه"‎ 

Start or Play Button : 

ييستخدم هذا الكود لتشغيل الفيديو“ AxWindowsMediaPlayer1.Ctl-‏ 

controls.play () 


Stop Button : 
AxWindowsMediaPlayer1.Ctl- 
controls.stop () 


Pause Button : 
AxWindowsMediaPlayer1.Ctlcontrols. ” “إيقاف مؤقت للفيديو‎ 
pause () 
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من الصعب هزيمة شخص 
لم يهزمه اليأس من داخله. 


www.learn-barmaga. com | البرمجة‎ alû | www.facebook.com/barmej.dz 





www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 


برنامج لإظهار البيانات في شاشة المستخدم 
الررسومية :(Form)‏ 


أدوات التحكم ) Tool Book‏ ( المستخدمة للشاشة ) Form‏ ( : 
5 أداة تسمية Label)‏ ) 

( Text Book ) مربع نص‎ 4 

( Button ) jj ölaÎ 2 





























www.learn-barmaga.com | البرمجة‎ alû | www.facebook.com/barmej.dz 


: (Properties الخصائص(‎ 


: Form اختيار خلفية للشاشة‎ 
Background Image 


: Font الخط المستخدم‎ 
Time New Roman 


: Font Style شكل الخط‎ 
Bold 


: Size الخط‎ 
12 


:Student Details لون أداة التسمية‎ 
White 


لون خلفية أداتي الزر Button‏ و أدوات التسمية Label‏ : 
Silver‏ 


مراعاة ما يلي عند كتابة الكود : 


عند تشغيل البرنامج والنقر على زر View‏ يجب إظهار البيانات في مربعات النص 
TextBox‏ بالإضافة إلى إظهار Student Details‏ في أداة التسمية .Label1‏ 
إعطاء أمر لأداة الزر Exit‏ بإغلاق البرنامج. 
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برنامج لحساب ناتج أي عملية حسابية (+ o‏ & /): 


يتكون هذا البرنامج من أدوات التحكم التالية: أداة تسمية 
label(3)‏ « مربع نص textbox(3)‏ « أداة button(2) j‏ . 


ككرة البرنامج: يستخدم مربعي نص 1 textbox‏ و text-‏ 
2 لإدخال رقمين مع كتابة ال Function "Val”‏ في 
صفحة الكود لإظهار ناتج العملية الحسابية في مربع النص 
الثالث 3 textbox‏ الذي يختص بخانة "الناتج". واستخدام 
اداة الزر Calculate‏ لإظهار الناتج واداة Close j jJl‏ لإغلاق 
صفحة البرنامج. 
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برمجة الآلة الحاسبة Calculator Form‏ : 


تصميم الشاشتين Calculator_Form2 g Calculator_Form1‏ 
مع كتابة الكود الخاص بكل منهما و مراعاة النقاط التالية : 


في الشاشة Calculator _Form1‏ : عند إدخال ثلاثة متغيرات 
أو أرقام في TextBox1,2,3‏ والنقر على كل من العمليات 


الحسابية الموجودة في Group Box (Math Functions)‏ 
يجب إظهار النتيجة Result‏ في مربع النص TextBox4‏ عند 


النقر على الزر .Fino‏ ويستخدم الزر Exit‏ للخروج من البرنامج. 
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: Calculator _Form2 في الشاشة‎ 


عند إدخال ثلاثة أرقام في TextBox1,2,3‏ والنقر على 
كل من العمليات الحسابية الموضحة من خلال استخدام 
الزر (Add, Sub, Mul & Div Button)‏ يجب إظهار النتيجة 
Result‏ في æo‏ النص TextBox4‏ ويستخدم الزر Exit‏ 


للخروج من البرنامج. 
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برمجة المؤقت لتحديد مدة زمنية معينة لإدخال كلمة السر: 


يمكننا استخدام المؤقت Timer‏ لكل ما له علاقة بالوقت أو 
التوقيت. فيمكننا yay‏ مدة زمنية معينة لإدخال كلمة pul‏ 
عند تشغيل البرنامج. قم بتنفيذ برنامج يقوم بطلب كلمة سر 
ولابد على المستخدم أن يقوم بإدخال كلمة السر الصحيحة 
خلال 10 yulgi‏ .فمثلا لتكن كلمة السر الصحيحة 123456 
»وإذا تأخر المستخدم عن إدخال كلمة السر خلال 10 ثواني 
فسيغلق البرنامج. 


Fol 55-7‏ له 


قم بكتابة كلمة السر خلال 15 ثانية وإلا سنقوم أسفين بإغلاق البرنامج 


ا 
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تصميم الفورم ListBoxApp‏ مع ë l<‏ إجراء أو كود لكل 
من الأزرار الموجودة: 
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manj‏ الفورم WhileConditionApp‏ كما هو 
موضح بالشكل التالي : 


وتنفيذ الدالة التكرارية Repetition Function‏ باستخدام 
While-End While‏ التي توضح تنفيذ برنامج يقوم بإظهار 
رسالة 10 مرات بالأعداد المحصورة بين 10 و 20 مع إظهار 


كل عدد في مربع النص TextBox2‏ في نفس الوقت. 
وتكون القيمة الأولى للمتغير (a)‏ تساوي 10 وشرط تكرار 
الحلقة هو أن تكون قيمة (2)أصغر من 20 . 
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: Loop For ...Next برنامج باستخدام‎ 


تصميم برنامج يقوم بتنفيذ عملية حسابية (+-.*./) لعددين go‏ 
استخدام For ....Next‏ وتنفيذ النقاط التالية عند كتابة الكود في 
الزر Add‏ : 


تبدأ الحلقة التكرارية بالعدد )1( وهو 
أول عدد من أعداد التكرار. 

وتنتهي الحلقة التكرارية بالعدد (10) 
وهو الذي يتوقف عنده التكرار. وتمثل 
الأعداد من 1 إلى 10 (العدد الثاني 
في العملية الحسابية). 

عند إدخال أي عدد صحيح في 
مربع النص TextBox]‏ (وهو العدد 
الأول في العملية الحسابية) والنقر 
علص أداة الزر Add‏ ستظهر العملية 
الحسابية للعددين وحاصل جمعهما 
في القائمة 15801 ا. 

تنفيذ الإجراء المختص بكل من الأزرار 
التالية: .Clear. Delete. Exit‏ 


i 
: 





9 


! | 8# # 115 
Wè‏ يا ® sı‏ ها با 31 


Ê ba tc ka. ku kû Ja bu ku ku kı Îb 
té 
وم‎ 
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برنامج الاستماع لسور القران الكريم : 


يتم برمجته من خلال استخدام Windows Media‏ 
Player‏ في برنامج الفيجوال بيسك وكتابة الأوامر 
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تصميم الفورم SelectPictureApp‏ التي تتضمن أدوات 
التحكم التالية: 

أداة تسمية (Label)‏ 

أداة زر (Button)‏ 

(Picture Box) صندوق الصورة‎ 

(Group Box) إطار المجموعة‎ 

(Radio Button) أداة الاختيار‎ 


ثم كتابة برنامج يتضمن النقاط التالية : 
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كتابة أوامر برمجية لكل أداة اختيار في البرنامج لإظهار صورة 
عند الضغط على كل من أدوات الاختيار مع إظهار اسم كل 
صورة في أداة التسمية Labelî‏ عند تشغيل البرنامج. 


تعريف متغير عام Public Variable‏ من نوع بيانات (Integer)‏ 
لتحديد رقم لكل صورة متعلقة بأداة الاختيار المحددة. 


في أداة الزر (>>): يتم كتابة أمر برمجي لإظهار كل صورة 
واحدة تلو الأخرى من الأعلى top‏ إلى الأسفل down‏ من 
خلال تنفيذ الدالة الشرطية (IF Statement)‏ وتحديد حالة لكل 
صورة في صندوق الصورة 80×1 Picture‏ عند الضغط على 
أداوت الاختيار الأربعة من خلال تنفيذ الدالة (Select Case)‏ 
لتغيير إظهار الصور عند تشغيل البرنامج من خلال الضغط على 
أداة الاختيار المتعلقة بكل صورة. 


في أداة الزر (<<): يتم كتابة أمر برمجي لإظهار كل صورة 
واحدة تلو الأخرى من الأسفل down‏ إلص الأعلى top‏ من 
خلال استخدام نفس الدوال Functions‏ التي سيتم تنفيذها 
في أداة الزر (>>) . 
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وفي الختام نتمنى أن يكون هذا الكتاب قد نال إعجابكم واستحسانكم. 
ونأمل أن نكون من خلاله قد تمكنا من إثارة شعلة إهتمامك بالفيجوال 
بيسك ليكون بداية الطريق لك نحو التعمق في هذا البرنامج الجميل 
ذو التطبيقات الكثيرة والمتعددة . Jlag‏ هذه اللغة من حال سائر 
لغات البرمجة « تقوص بالممارسة والتجربة المستمرة وتندثر وتنساى 


في حالة ركنها على الرف. ف البرمجة ليست مجموعة 
من المعلومات المسلية وإنما أداة للتطوير 
الخلاق. نفع الله بكم ووجهكم لما فيه الخير. 
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نحن فص القرية الهندسية نحلم بجيل من الأطفال 
والشباب ay‏ متعته في العلم وإكتساب المعرفة. j‏ 
بمستقبل مشرق ينافس فيه أبناءنا عباقرة العالم ويتفوقون 
عليهم بجد وشغف ولهذا نعمل جاهدين على تقديم العلوم 
بطريقة مسلية تنافس البدائل المتوفرة من ألعاب الفيديو 
ومشاهدة التلفاز. العالم من حولنا يتطور بسرعة رهيبة في 
مختلف مجالات التكنولوجيا الرقمية والإلكترونية ومن واجبنا أن 
ew‏ لمواكبة التطور والحداثة ليس بالقيل والقال وإنما 
بالعلم والعمل. L209‏ يمكننا أن نصنع التغيير ! 





فهد السياباي 
الرئيس التنفيذي 
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نرجو أن نكون قد استطعنا افادتكم وامتاعكم في عالم برمجة 

الفيجوال بيسك « ولمزيد من المعلومات وللتحقق من إجاباتكم 
lojoj‏ موقعنا علص الإنترنت www.ev-center.com‏ 

كما يسعدنا قراءة آرائكم وتعليقاتكم في حساباتنا على مواقع 
التواصل الإجتماعي عبر الوسم #مبرمجو_المستقبل 
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القرية 51 العندس ے 
Sees‏ 


apal 
الأوتوكار‎ 


qe 
UTOCAD 








أوتوكاد 
U 6‏ تو 
احترف ا H‏ 
الأردوينو فو 
احترف الاردور 
غص ٠١‏ أيام 





awase 
ا‎ 





احترف الرازبيري باي 
في ٠١‏ ايام 
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* كل شخص عليه أن Aei‏ برمجة الحاسوب .. لأنه يعلمك كيف تفكر » 


* بيل جيتس | مؤسس ميكروسفت | algi‏ البرمجة jaw‏ 13 عام 
* مارك زوكربيرج | مؤسس الفيس بوك | بدأ باستخدام الحاسوب في الصف السادس 


* جاك زورسي | مؤسس شبكة jug‏ | أهداه والداه حاسوب وهو بعمر 9 سنوات 








#مبرمجو_المستقبل 


